ng joge—and learn the assembly dee as well. 


2 Games lets you play the ten games shown below, but it does much more: 
it teaches assembly language programming in a straightforward and enjoyable 
manner. You will learn the techniques of algorithm design and data structures. 
so you can program your 6502 not only to play games but also to perform a 
variety of tasks, from home applications to industrial controls. 


With a minimum of external hardware, you will be able to play: 
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*- Magic Squares Slot Machine . Music 
Hexguess : Spinner Translate 
Echo Mindbender Blackjack 
Tic-Tac-Toe 
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PREFACE 


"Complex algorithms can be fun!” 


Programming is often treated by programmers as a game, although 
they may not readily admit it. In fact, using and programming a com- 
puter may well be one of the ultimate intellectual games devised to 
date. 

A program is a projection of one’s intelligence and skills. Writing 
games programs adds an essential ingredient to it: fun. However, most 
interesting games are fairly complex to program, and demand specific 
programming skills. 

This book will teach you how to program a complete array of games 
ranging from passive ones (Music) to strategic ones (Tic-Tac-Toe). In 
the process of learning how to program these games, you will sharpen 
your skills at using input/output techniques, such as timers and in- 
terrupts. You will also use various data structures, and improve or 
develop your assembly-level programming skills. 

This book has been designed as an educational text. After reading it 
you should be able to create programs for additional games and to use 
your programming skills for other applications. 

If you have access to a microcomputer board, you can also enjoy 
the results of your work in a very short time. The programs presented 
in this book are listed for the SYM board (from Synertek Systems), 
but can be adapted to other 6502-based microcomputers. Playing the 


games will require building a simple, low-cost **Games Board," which : 


is described in Chapter 1. To facilitate game playing, a ‘‘Games 
Cassette” is also available in SYM format. 
The many games studied in this book include: musical games 


. (MUSIC), educational games (TRANSLATE and HEXGUESS will 


teach you hexadecimal), games involving the use of logic (MAGIC 
SQUARES), games involving coordination (SPINNER), memory 
games (ECHO), games of chance (SLOT MACHINES), games involv- 
ing strategy (TIC-TAC-TOE), and games involving various combina- 
tions of skills (BLACKJACK). 

A basic format has been followed in presenting each game program. 
It includes: 


1. The rules of the game 
2. Instructions for playing a typical game 
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3. The algorithm(s) (theory of operation) 
4. The program: data structures, programming techniques, 
subroutines. 


Variations and exercises are also suggested throughout the book. 

Thus, you will first learn how to play the game, and then how to de- 
vise a possible solution (the algorithm). Finally, you will actually 
implement a complete, programmed version of the algorithm in 6502 
assembly-level language, paying specific attention to the required data 
structures and techniques used for efficient programming. 

Learning to program in assembly-level language has traditionally 
been unappealing or difficult. It need not be. It can be fun. If you are 
familiar with elementary programming techniques on the level of 
reference text C202— Programming the 6502, this book will teach you 
practical programming techniques in a game context. It will both inte- 
grate theoretical concepts into complex programs and present a simple 
step-by-step analysis of program development. These same concepts 
and techniques can be applied to any programming problem, from 
industrial control to business applications. 

It is hoped that you will have as much fun learning how to program 
as you will have playing the games. If you have invented, developed, 
or know of other games that you would like to see included in a games 
book, please write to me. 

RODNAY ZAKS 
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INTRODUCTION 


PURPOSE 


This book has been designed for the programmer who wants to 
learn advanced programming techniques by using the 6502. It can, of 
course, also be used by those who simply wish to play games with their 
6502-based board. When using this book for educational purposes, 
the reader should be familiar with the 6502 instruction-set as well as 
basic programming techniques on the level of the reference text C202 
— Programming the 6502. ^ basic knowledge of input/output tech- 
niques is also recommended. (See reference D302 — 6502 РЕНЕ 
tions Book.) 

The games presented in this book range from simple programs to 
highly complex ones. In order to implement game programs, 
algorithms will be proposed, and data structures will be designed. This 
is the process any disciplined computer programmer must go through 
when designing a programmed solution for a given problem. Game 
programs usually do not present any serious input/output problems, 
as some industrial control programs might; however, they often repre- 
sent a serious intellectual challenge in terms of devising an efficient 
solution strategy. In addition, all the algorithms and programs 
presented in this book have been designed to be terse so that they can 
reside within less than 1K of available memory. 

All of the programs presented in this book have been tested on ac- 
tual hardware by several users and have been found to be error-free in 
the conditions under which they were tested. As in any large program, 
however, inadequacies or improvements may be found. The author 
will be grateful for апу comments or suggestions from interested 
readers. 


The programs in this book can be used to play real games. They re- 
quire using a 6502-based board such as the SYM board (manufactured 
and trademarked by Synertek Systems) and they require building a sim- 
ple ‘‘Games Board." A complete description of the Games Board will 
be provided in this chapter. The Games Board is shown in Figure 1.1. 

The programs in this book will all run as they are presented on a 
SYM board, but they can easily be adapted to any other 6502-based 
computer. The input/output lines available, however, are usually 
specific to the microcomputer used. The input/output segments of the 
various programs must then be modified accordingly. Naturally, the 
algorithms themselves as well as the programming techniques used to 
implement them normally remain unchanged. 

After reading this book, especially if you should try to run the pro- 
grams on the Games Board, you will probably agree that: 


**Complex algorithms сап be fun!" 


HARDWARE REQUIRED 


In order to run the programs presented in this book on an actual 
microcomputer, a SYM or other 6502-based board should be used. 
Additionally, a Games Board will be required to play the games. A 
photograph of the Games Board is shown in Figure 1.1. The Games 
Board is the input/output board on which the games will be played. The 
keyboard on the right is used to provide an input to the microcom- 
puter board, while the LEDs on the left are used to display the informa- 
tion sent by the program. The use of the keys and the LEDs will be ex- 
plained for each game in this book. A speaker is also attached for 
sound effects. It has been mounted in an enclosure (box), for im- 
proved sound quality. (See Figure 1.2.) 

The Games Board may easily be built at home from a small number 
of low-cost components, or may be obtained from Sybex. Since its 
assembly is quite simple, the reader interested in obtaining a better 
understanding of the hardware is strongly encouraged to purchase the 
parts and build the board. On the other hand, building the Games 
Board is not a required action in order to use this text. It simply offers 
additional depth of understanding. 


CONNECTING THE SYSTEM 


It is assumed here that you own a 6502-based microcomputer 
board, such as a SYM board, and that you have built or obtained a 
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Fig. 1.1: The Games Board 


DEALS SET. 


Fig. 1.2: Enclosure May Be Used for Improved Sound 


` 
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Games Board. This section will describe how to interconnect the 
elements of the system so that you can actually play the games which 
will be described in the following chapters. If you do not have access 
to this hardware, it is not essential that you read through this section. 
However, you may wish to refer to it later, in order to implement the 
games described in this book, or to understand the interfacing and in- 
put/output techniques. 
Four essential components are required: 


1 - the power supply 

2 - the SYM board 

3 - the Games Board 

4 - (preferably) a cassette recorder 


The first requirement is to connect the wires to the power supply. If 
it is not already so equipped, two sets of wires must be connected to it. 
(See Figure 1.3.) First, it must be connected to a power cord. Second, 
the ground and plus 5V wires must be connected to the SYM power 
connector, as per the manufacturer's specifications. 

Next, the Games Board should be physically connected to the SYM. 
'Two edge connectors are required for the SYM: both the A connector 
and the AA connector are used. (See Figure 1.4.) There is also a power 


source connector. 
Always be careful to insert the connectors with the proper side up 


(usually the printed side). An error in inserting the power connector, 
in particular, will have highly unpleasant results. Errors in inserting 
the I/O connectors are usually less damaging. 

Finally, if a cassette recorder is to be used (highly recommended), 
the SYM board must be connected to a tape recorder. At the 
minimum, the ‘‘monitor’’ or ‘‘earphone’’ wires should be connected, 
and preferably the ‘‘remote’’ wire as well. If new programs are going 
to be stored on tape, the “тесога”” or ‘‘microphone’’ wire should also 
be connected. (See Figure 1.5.) Details for these connections are given 
in the SYM manual. 

At this point the system is ready to be used. (See Figure 1.6.) If you 
have one of the games cassettes (available separately from Sybex), 
simply load the cassette into the tape recorder. Press the RST key after 
powering up your SYM, and load the appropriate game into your 
SYM. You are ready to play. 

Otherwise, you should enter the hexadecimal object code of the 
game on the SYM keyboard. All games are started by jumping to 
location 200 (‘‘GO 200°). 
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Fig. 1.4: The Games Board is Connected to the SYM with 2 Connectors 
(Note also Power and Cassette Connectors) 
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Fig. 1.5: Connecting the Cassette Recorder 
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Fig. 1.6: Тһе System is Ready to Бе Used 
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GAMES BOARD INTERCONNECT 
The Keyboard 


The board's components are shown in Figure 1.7. The LED ar- 
rangement used for the games is shown in Figure 1.8. The keyboard 
used here is of the ‘‘line per key” type, and does not use a matrix ar- 
rangement. Sixteen keys are required for the games, even though more 
keys are often provided on a number of ‘‘standard keyboards,’’ such 
as the one used in the prototype of Figure 1.7. On this prototype, the 
three keys at the bottom right-hand corner are not used (keys H, L, 
and ‘‘shift’’). 

Figure 1.9 shows how a 1-to-16 decoder (the 74154) is used to iden- 
tify the key which has been pressed, while tying up only four output 
lines (PBO to PB3) — four lines allow 16 codes. The keyboard scan- 
ning program will send the numbers 0-15 in succession out on lines 
PBO-PB3. In response, the 74154 decoder will decode its input (4 bits) 
into each one of the 16 outputs in sequence. For example, when the 
number “00007” (binary) is output on lines PBO to PB3, the 74154 
decoder grounds line 1 corresponding to key ‘‘0’’. This is illustrated in 
Figure 1.9. After outputting each four-bit combination, the scanning 
program reads the value of PA7. If the key currently grounded was 
not pressed, PA7 will be high. If the corresponding key was pressed, 
PA7 will be grounded and a logical ‘‘0’’ will be read. For example, in 


Fig. 1.7: Games Board Elements (Prototype) 
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Fig. 1.8: The LEDs 


Figure 1.10, a key closure for key 1 has been detected. As in any scan- 
ning algorithm, a good program will debounce the key closures by im- 
plementing a delay. For more details on specific keyboard interfacing 
techniques, the reader is referred to reference C207 — Microprocessor 
Interfacing Techniques. 

In the actual design, the four inputs to the 74154 (PBO to PB3) are con- 
nected to VIA #3 of the SYM. PA7 is connected to the same VIA. The 
3.3 K resistor on the upper right-hand corner of Figure 1.9 pulls up 
PA7 and guarantees a logic level “1” as long as no grounding occurs. 

The GETKEY program, or a similar routine, is used by all the pro- 
grams in this book and will be described below. 


The LEDs 


The connection of the fifteen LEDs is shown in Figure 1.11. Three 
7416 LED drivers are used to supply the necessary current (16 mA). 

The LEDs are connected to lines PAO to PA7 and PBO to PB7, ex- 
cepting PB6. These ports belong to VIA #1 of the SYM. An LED is lit 
by simply selecting the appropriate input pin of the corresponding 
driver. The resulting arrangement is shown in Figure 1.12 and Figure 
1.13. 


INTRODUCTION 


+5 3.3K 


+5V 


PBO 
PBI 
PB2 
PB3 


ОМО  4tol6 


m DECODER 


"m m Og o Uo p DDN OD OD FON 


PA7 


+5V 


0 
1 (CLOSED) 


PA7 
(CLOSURE DETECTED) 


Fig. 1.10: Detecting a Key Closure 
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VIA #1 
PAO LED 1 
PAI LED 2 
PA2 LED 3 
PA3 LED 4 
PAA LED 5 
PAS LED 6 
= 7 8 9 
+5 
(=) (=) HHH) 
10 1 12 13 14 15 
РА6 LED 7 
РАУ LED 8 Fig. 1.12: LED Arrangement on the Board 
PBO Mnt The resistors shown in Figure 1.11 are 330-ohm resistors designed as 
PBI о current limiters for the 7416 gates. 
PB2 LED 11 3d The output routines will be described in the context of specific 
PB3 LED 12 1 games. 
Required Parts 
i One 6" x 9” vector-board 
^n +5 One 4-to-16 decoder (74154) 
Three inverting hex drivers (7416) 
One 24-pin socket 
Three 14-pin sockets (for the drivers) 
Рве ERIS One 16-key keyboard, unencoded 
PB5 LED 14 Fifteen 330-ohm resistors 
PB7 LED 15 One 3.3 K-ohm resistor 
One decoupling capacitor (.1 mF) 
Fifteen LEDs 
One speaker 
One 50-ohm or 110-ohm resistor (for the speaker) 
Two 15”-20” long 16-conductor ribbon cables 
One package of wire-wrap terminal posts 
= +5 Wire-wrap wire 
Solder 
Fig. 1.11; LED Connection A soldering iron and a wire-wrapping tool will also be required. 
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VIA NUMBER 1 


PORT 
ТА 


PORT 
18 


Fig. 1.13: Detail of LED Connection to the Ports 


Assembly 


A suggested assembly procedure is the following: the keyboard can 
be glued directly to the perf board. Sockets and LEDs can be posi- 
tioned on the board and held in place temporarily with tape. All con- 
nections can then be wire-wrapped. In the case of the prototype, the 
connections to the keyboard were soldered in order to provide reliable 
connections since they were not designed as wire-wrap leads. Wire- 
wrap terminal posts were used for common connections. 

Additionally, on the prototype two sockets were provided for con- 
venience when attaching the ribbon cable connector to the Games 
Board. They are not indispensable, but their use is strongly suggested 
in order to be able to conveniently plug and unplug cables. (They ap- 
pear in the top left corner of the photograph in Figure 1.14.) A 14-pin 
socket and a 16-pin socket are used for this purpose. Wire-wrap ter- 
minal posts can be used instead of these sockets to attach the ribbon 
cable directly to the perf board. The other end of the ribbon cable is 
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Fig. 1.14: Games Board Detail 


simply attached to the edge connectors of the SYM. When connecting 
the ribbon cable at either end, always be very careful to connect it to 
the appropriate pins (do not connect it upside down). The Games 
Board derives its power from the SYM through the ribbon cable con- 
nection. Connecting the cable in reverse will definitely have adverse 
effects. 

The speaker may be connected to any one of the output drivers 
PB4, PB5, PB6, or PB7 of VIA #3. Each of these output ports is 
equipped with a transistor buffer. A 110-ohm current-limiting resistor 
is inserted in series with the speaker. 


The Keyboard Input Routine 


This routine, called ““GETKEY,”’ is a utility routine which will scan 
the keyboard and identify the key that was pressed. The correspond- 
ing code will be contained in the accumulator. It has provisions for 
bounce, repeat, and rollover. 

Keyboard bounce is eliminated by implementing a 50 ms delay upon 
detection of key closure. 

The repeat problem is solved by waiting for the key currently 
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pressed to be released before a new value is accepted. This cor- 
responds to the case in which a key is pressed for an extended period 
of time. Upon entering the GETKEY routine, a key might already be 
depressed. It will be ignored until the program detects that a key is no 
longer pressed. The program will then wait for the next key closure. If 
the processing program using the GETKEY routine performs long 
computations, there is a possibility that the user may push a new key 
on the keyboard before GETKEY is called again. This key closure will 
be ignored by GETKEY, and the user will have to press the key again. 
Most of the programs described in this book have audible prompts 
in the form of a tone which is generated every time the player should 
respond. Note that when a tone is being generated or during a delay 
loop in a program, pressing a key will have absolutely no effect. 


GETKEY 
INITIALIZE VIA 
DIRECTION REGISTERS 


(АСОЗ) (АСО1) 
DDR 3A PORT 3A 


KEY COUNTER =.15 


SELECT KEY 
DECREMENT 
KEY COUNTER 


(INPUT) 


(OUTPUT) 


DECREMENT COUNT 


SET DELAY COUNT 


4TO 16 
DECODER 


15 


VIA #3 


Fig. 1.16: GETKEY Flowchart 


Fig. 1.15: VIA Connection to Keyboard Decoder 
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The hardware configuration for the GETKEY routine is shown in 
Figure 1.9. The corresponding input/output chip on the SYM is 
shown in Figure 1.15. VIA 43 of the SYM board is used to com- 
municate with the keyboard. Port B of the VIA is configured for out- 
put and lines 0 through 3 are gated to the 74154 (4-to-16 decoder), 
connected to the keyboard itself. The GETKEY routine will output 
the hexadecimal numbers 0” through ‘‘F,’’ in sequence, to the 
74154. This will result in the grounding of the corresponding output 
line of the 74154. If a key is pressed, bit 7 of VIA #3 of Port A will be 
grounded. The program logic is, therefore, quite simple, and the cor- 
responding flowchart is shown in Figure 1.16. 

The program is shown in Figure 1.17. Let us examine it. The 
GETKEY routine can be relocated, i.e., it may be put anywhere in the 
memory. In order to conserve space, it has been located at memory 
locations 100 to 12E. It is important to remember that this is the low 
stack memory area. Any user programs which might require a full 
stack would overwrite this routine and thus destroy it. To prevent this 
possibility, it could be located elsewhere. For all of the programs that 
will be developed in this book, however, this placement is adequate. 
The first four instructions of the routine condition the data direction 
registers of VIA #3. The data direction register for Port A is set for in- 
put (all zeroes), while the data direction register for Port B is set for 
output (all ones). This is illustrated in Figure 1.15. 


LDA #0 
STA DDR3A 
LDA #$FF 
STA DDR3B 


Two instructions are required to test bit 7 of Port 3A, which in- 
dicates whether a key closure has occurred: 


START BIT PORT3A 
BPL START 


The key counter is initially set to the value 15, and will be decremented 
until a key closure is encountered. Index register X is used to contain 
this value, as it can readily be decremented with the DEX instruction: 


RSTART LDX #15 


This value (15) is then output to the 74154 and results in the selection 
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$'GETKEY' KEYBOARD INFUT ROUTINE 

$REABS AND IEROUNCES KEYROARD» RETURNS WITH KEY NUMBER 
FIN ACCUMULATOR IF KEY DOWN, 

#ОРЕКАТІОМ: SENDS NUMBERS 0-Ғ TO 74154 (4 TO 16 

sLINE ПЕСОПЕК)» WHICH GROUNDS ONE SIDE OF KEYSUITCHES 
%0МЕ АТ A TIME. IF A KEY 15 DOWN,» РА? OF VIA #3 WILI. ВЕ 
GROUNDED» AND THE CURRENT VALUE APPLIED TO THE 74154 W 
ВЕ THE KEY NUMBER. WHEN THE PROGRAM DETECTS A KEY CLOS 
*CHECKS FOR KEY CLOSURE FOR 50 MS. TO ELIMINATE BOUNCE. 
$NOTE:i/IF NO KEY IS PRESSED, GETKEY WILL WATT. 


$ 


.=%100 sNOTE? GETKEY IS IN LOW STACK 
DERSA -ФАСОЗ А 

DIR3B  -$4CO2 
РОКТЗА «ФАС01 
РОКТЗВ =$AC00 


%ПАТА DIRECTION REG А FOR VIA ЯЗ 

%ПАТА ІІКЕСТІОМ REG B FOR VIA $3 

%МТАЖЗ FORT A IN/OUT REGS 

%МІАЖЗ FORT B IN/OUT REGS 

, 

0100: А9 LIA #0 

0102: 8I STA DIRIA ЗЕТ KEY STROBE FORT FOR INFUT 

0105: A? LDA &$FF 

0107: 8E ; STA DIRIB ISET КЕҮФ FORT FOR QUTFUT 

0104: 2С BIT FORT3A $SEE IF KEY IS STILL. DOWN FROM 
35LAST KEY CLOSURE: KEYSTORE ІМ 'N' 
%5ТАТ05 БІТ. 

0100% 10 ЕРІ. START PIF YES» WAIT FOR KEY RELEASE 

O10F? А2 RSTART LIX #15 sSET KEY# COUNTER TO 15 

0111: ВЕ 7 МХТКЕҮ STX FORTIK ФОӘТРИТ KEY # TO 74154 

0114: 2C > RIT РОКТЗА ЗЕЕ IF KEY TOWN: STROBE IN 'N* 

0117: 10 OS ЕРІ. BOUNCE 31F YES» GO DEBOUNCE 

0119: CA DEX $HECREMENT KEY # 

01143 10 F BFL NXTREY ;NO» DO NEXT KEY 

011Сс::30 BMI RSTART ISTART OVER. 

011Е: ВА BOUNCE ТХА ISAVE KEY NUMBER IN A 

011Ғ: AO LIY #$12 OUTER LOOF CNT LOAD FOR 
DELAY OF 50 MS. 

0121: А2 ІРІ LEX £$FF FINNER 11°US, LOOF 

0123: 2C > LP2 BIT FORT3A СЕЕ IF KEY STILI. DOWN 

0126: 30 E ЕМІ RSTART SIF NOT» KEY NOT VALIDI? RESTART 

0128: CA ПЕХ 

0129: DO ВМЕ 

0128: 88 EY 

012C: DO ЕМЕ LF sOUTER LOOF! TOTAL IS 50 MS. 

012Е: 60 RTS %ПОМЕ: КЕҮЖ-ІМ A. 


;THIS LOOF USES 2115Ж5 US 


SYMBOL TABLE? 
DDR3A АС0ОЗ DURSB FORT3A 
PORT3B асоо START RSTART 
NXTREY 0111 BOUNCE Led 
LF2 0123 
ТОМЕ 


Fig. 1.17: GETKEY Program 


of line 17 connected to key 15 (‘‘F’’). The BIT instruction above is 
used to test the condition of bit 7 of Port 3A to determine whether this 
key has been pressed. ; 


МХТКЕҮ 5ТХ РОКТЗВ 
ВІТ РОКТЗА 
BPL BOUNCE 


` 


If the key were closed, a branch would occur to ‘‘BOUNCE,”’ and a 


17 


6502 GAMES 


delay would be implemented to debounce it; otherwise, the counter is 
decremented, then tested for underflow. As long as the counter does 
not become negative, a branch back occurs to location NXTKEY. 
This loop is repeated until a key is found to be depressed or the 
counter becomes negative. In that case, the routine loops back to loca- 
tion RSTART, restarting the process: 


DEX 
BPL NXTKEY 
BMI RSTART 


Note that this will result in the detection of the highest key pressed 
in the case in which several keys are pressed simultaneously. In other 
words, if keys “Е” and “3” were pressed simultaneously, key “F” 
would be identified as depressed, while key “3” would be ignored. 
Avoiding this problem is called multiple-key rollover protection and 
will be suggested as an exercise: 


Exercise 1-1: In order to avoid the multiple-key rollover problem, 
modify the GETKEY routine so that all 15 key closures are monitored. 
If more than one key is pressed, the key closure is to be ignored until 
only one key closure is sensed. 


Once the key closure has been identified, the corresponding key 
number is saved in the accumulator. A delay loop is then implemented 
in order to provide a 50 ms debouncing time. During this loop, the key 
closure is constantly monitored. If the key is released, the routine is 
restarted. The delay itself is implemented using a standard two-level, 
nested loop technique. 


BOUNCE TXA 
LDY #$12 
ІРІ LDX #$FF 
LP2 BIT PORT3A 
BMI RSTART 
DEX 
BNE LP2 
DEY 
BNE ІРІ 


Exercise 1-2: The value used for the outer loop counter (“812,” or 12 
hexadecimal) may not be quite accurate. Compute the exact duration 
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of the delay implemented by the instructions above, using the tables 
showing the duration of each instruction in the Appendix. 


SUMMARY 


Executing the games programs requires a simple Games Board which 
provides the basic input/output facilities. The required hardware and 
software interface has been described in this chapter. Photographs of 
the assembled board which evolved from the prototype are shown in 
Figures 1.18 and 1.19. 


7 РІЕХІСІАЅЅ .- 
cov м 


Fig. 1.18: "Production" Games Board 


а 
a 
4 
o 
а 
» 
ш; 
EU 
"E 
qu 
= i 
& 
o; 

; 
va} 


Fig. 1.19: Removing the Cover 
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THE RULES 


This game allows music to be played directly on the keyboard of a 
computer. In addition, the program will simultaneously record the 
notes that are played, and then automatically play them back upon re- 
quest. Keys 0° through “С” on the keyboard are used to play the 
musical notes. (See Figure 2.1.) Key **D"' is used to specify a rest. Key 
“E?” is used to play back the musical sequence stored in the memory. 
Finally, key ‘‘F’’ is used to clear the memory, i.e., to start а new 
game. The following paragraph will describe the usual sequence of the 
game. 


8 
9 
A 
B Я 
C 
D 
E 
F 


Fig. 2.1: Playing Music on the Keyboard 
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9th Symphony: 
5—5—6—8—8—ó—5—4—3—3—4—5—5—4—4—D—5 
5--6--8--8--6--5--4--3--3--4-5-4-3--3--0--4--4-- 
5--3--4--6--5--3--4-6--5--4--3--4-ф 


Clementine: 
3—3—3—D—2—D—5—5—5—D—3—D—3—5—8—D—D— 
8 — 6— 5 — 4 — D — D — D — 4 — 5 — 6 — D — 6 — D — 5—4 — 5 —D — 
3—D—3—5—4—D—D—2—3—4—3 


Frere Jacques: 

3 — 4 — 5 — 3 — 3 — 4 — 5 — 3 — 5 — 6 — 8 — D — 5 —6 — 8 —D — 8 
A— 8— 6— 5— D — 3 — D — 8 — A —8 — 6 —5 — 0 — 3 — D — 3 —D — 
2—D—3—D—D—D 2—D—3 


Jingle Bells: 
§—5—5—D—5—5 
6—6—6—6—5—5 


London Bridge: 


8—A—8 
A—8—6 6—8 


Mary Had a Little Lamb: 
5--4--3--4--5--5--5 
4--3--4--5--5--5--5 


Row Row Row Your Boat: 
3—D—3—D—3—4—5— D— 5 — 4 — 5 — 6 — 8 — D — D — D — C — 
С-8--8--5--5--3--3--8--6-5--4-3 


Silent Night: 
8—D—D—A—8—D—5—D—D—D—8—D—D—A—8—D—5 
D—D—D—3—D—D—3—D—B—D—D—D—C—D—D—C— 
D—8—D—D—C—D—8—5—8—D—6—D—4—D—3 


Twinkle Twinkle Little Star: 

3 — 3 — 8 — 8 — A — A — 8 — D — 6 — 6 — 5 — 5 — 4 — 4 — 3 — D — 8 — 
8 — 6 — 6 — 5 — 5 — 4 — D — 3 — 3 — 8 — 8 — A — A — 8 — D — 6 — 6 — 
5—5—4— 4—3 


Fig. 2.2: Simple Tunes for Computer Music 
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A TYPICAL GAME 


Press key “F” to start a new game. A three-note warble will be 
heard, confirming that the internal memory has been erased. Play the 
tune on keys ‘‘0’’ through **D"' (using the notes and the rest features). 
Up to 254 notes may be played and stored in the memory. At any 
point, the playback key (‘‘E’’) may be pressed and the notes and rests 
that were just played on the keyboard (and simultaneously stored in 
the memory) will be reproduced. The musical sequence may be played 
as many times as desired by simply pressing key “Е.” Examples of 
simple tunes or musical sequences that can be played on the computer 
are shown in Figure 2.2. 


THE CONNECTIONS 


This game uses the keyboard plus the speaker. The speaker is con- 
nected in series to one of the buffered output lines of PORT B of VIA 
#3, via a 110-ohm current limiting resistor. PB4, PB5, PB6, or PB7 of 
VIA #3 are used, as they are driven by a transistor buffer on the SYM. 
For higher quality music, it is recommended that the speaker be placed 
in a small box-type enclosure. The value of the resistor may also be 
adjusted for louder volume (without going below 50-ohm) to limit the 
current in the transistor. 


THE ALGORITHM 


A tone (note) is simply generated by sending a square wave of the 
appropriate frequency to the speaker, i.e., by turning it on and off at 
the required frequency. This is illustrated in Figure 2.3. The length of 
time during which the speaker is on or off is known as the half-period. 
In this program, the frequency range of 195 to 523 Hertz is provided. 
If N is the frequency, the period T is the inverse of the frequency, or: 


T = 1/N 
Therefore, the half-periods will range from 1/(2 x 195) = .002564 to 


| | | | | » 29664 
Боо 
606009 


— 
1/2 


SQUARE WAVE SPEAKER 


Fig. 2.3: Generating a Tone 
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1/(2 x 523) = .000956 microseconds. A classic loop delay will be used 
to implement the required frequency. 

Actual computations for the various program parameters will be 
presented below. 


THE PROGRAM 


The program is located at memory addresses 200 through 2DD, and 
the recorded musical sequence or tune is stored starting at memory 
location 300. Up to 254 notes may be recorded in 127 bytes. 


Data Structures 


Three tables are used in this program. They are shown in Figure 2.4. 
The recorded tune is stored in a table starting at address 300. The note 
constants, used to establish the frequency at which the speaker will be 
toggled, are stored in a 16-byte table located at memory address 2C4. 
The note durations, i.e., the number of half-cycles required to imple- 
ment a uniform note duration of approximately .21 second, are stored 
in a 16-byte table starting at memory address 2D1. Within the tune 
table, two ‘‘nibble’’-pointers are used: PILEN during input апа PTR 
during output. (Each 8-bit byte in this table contains two notes.) In 
order to obtain the actual table entry from the nibble-pointer, the 
pointer is simply shifted one bit position to the right. The remaining 
value becomes a byte-pointer, while the bit shifted into the carry flag 
specifies the left or the right half of the byte. The two tables called 
CONSTANTS and NOTE DURATIONS are simply reference tables 
used to determine the- half-frequency of a note and the number of 
times the speaker should be triggered once a note has been identified 
or specified. Both of these tables are accessed indirectly using the X 
register. 


Some Music Theory 


A brief survey of general music conventions is in order before 
describing the actual program. The frequencies used to generate the 
desired notes are derived from the equally tempered scale, in which the 
frequencies of succeeding notes are in the ratio: 


1:14 2 


The frequencies for the middle C octave are given in Figure 2.5. 
When computing the corresponding frequencies of the higher or the - 
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100 
GETKEY 
ROUTINE | 
2C4 
200 NOTE 
CONSTANTS 
2D0 
201 
зоо [ NOTE 
DURATIONS 
200 


400 


500 


Fig. 2.4: Memory Мар 


lower octave, they are simply obtained by multiplying by two, or 
dividing by two, respectively. 


Generating the Tone 


The half-period delay for the square wave sent to the speaker is im- 
plemented using a program loop with a basic 10 us cycle time. In the 
program, the ‘оор index,” or iteration counter is used to count the 
number of 10 us cycles executed. The loop will result in a total delay 
of: 


l (loop index) x 10 — 1 microseconds 
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FREQUENCY (HERTZ) 


Fig. 2.5: Frequencies for the Middle C Octave 


On the last iteration of the loop (when the loop index is 
decremented to zero), the branch instruction at the end will fail. This 
branch instruction will execute faster, so that one microsecond 
(assuming a 1 MHz clock) must be subtracted from the total delay 
duration. The tone generation routine is shown below: 


TONE STA FREQ 
LDA #$FF 
STA DDRB 
LDA #$00 
LDX DUR 
FL2 LDY FREQ 
FLI DEY 
CLC INNER 
BCC .+2 LOOP 
BNE FLI 
EOR #$FF 
STA OPB 
DEX 
BNE FL2 
RTS 


OUTER 
LOOP 


Note the ‘‘classic’’ nested loop design. Every time it is entered, the 
outer loop adds an additional thirteen microseconds delay: 14 
microseconds for the extra instructions (LDY, EOR, STA, DEX, and 
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BNE), minus one microsecond for responding to the unsuccessful in- 
ner loop branch. The total outer loop delay introduced is therefore: 


(loop index) x 10 + 13 microseconds 


Remember that one pass through the outer loop represents only a half- 
period for the note. 


Computing the Note Constants 


Let ‘‘ID’’ be the inner loop delay and “ОП” be the outer loop addi- 
tional delay. It has been established in the previous paragraph that the 
half-period is T/2 = (loop index) x 10 + 13 or, 


T/2 = (loop index) x ID + OD 


The note constant stored in the table is the value of the ‘‘index’’ re- 
quired by the program. It is easily derived from the equation that: 


note constant = loop index = (T — 2 x OD)/2 x ID 


The period may be expressed in function of the frequency as T = 1/N 


or, in microseconds: 
T = 10°/N 
Finally, the above equation becomes: 


note constant = (10°/N — 2 x OD)/2 x ID 


For example, let us compute the note constant corresponding to the 
frequency for middle C. The frequency corresponding to middle C is 
shown in Figure 2.5. It is 261.62 Hertz. The “ОП” delay has been 
shown above to be 13 microseconds, while ‘‘ID’’ was set to 10 
microseconds. The note constant equation becomes: 


note constant = (105/N — 2 x 13)/2 x 10 
1000000/261.62 - 26 
20 
190 (or BE in hexadecimal) 


It can be verified that this corresponds to the fourth entry in the table 
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BE 


Fig. 2.6: Note Constants 


at address NOTAB (see Figure 2.9 at the end of the listing, at address 
02С4). The note constants are shown in Figure 2.6. 


Exercise 2-1: Using the table in Figure 2.6, compute the corresponding 
frequency, and check to see if the constants have been chosen correctly. 


Computing the Note Durations 


The DURTAB table stores the note durations expressed in numbers 
equivalent to the number of half-cycles for each note. These durations 
have been computed to implement a uniform duration of approximately 
.2175 second per note. If D is the duration and T is the period, the 
following equation holds: 


D x T = .2175 


where D is expressed as a number of periods. Since, in practice, half- 
periods are used, the required number D’ of half-periods is: 


D’ = 2D = 2 x 21755 x N 
For example, in the case of the middle C: 
D = 2 x .2175 x 261.62 = 133.8 2 114 decimal (or 72 hexadecimal) 
Exercise 2-2: Compute the note durations using the equation above, 
and the frequency table in Figure 2.5 (which needs to be expanded). 


Verify that they match the numbers in table DURTAB at address 2D1. 
(See Figure 2.9) 
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Program Implementation 


The program has been structured in two logical parts. The cor- 
responding flowchart is shown in Figure 2.7. The first part of the pro- 
gram is responsible for collecting the notes and begins at label 


START 


PILEN = 0 
TEMP = PTR SHIFTED 
RT. ONE BIT 
GET KEY NUMBER 


KEY NUMBER 


POSITION 


NO YES 
CARRY = 0? 


= 15? PE NOTE NUMBER — 
ТЕМ ЕНЕГЕ NOTE TABLE (TEMP) 
RIGHT 4 PLACES 


3 BEEPS FOR NO 
RESTART 


NO e KEY NUMBER 
= 14? PLAY NOTE 
NUMBER 
YES 


PLAYEM 

BETWEEN—NOTE 
DELAY 
PTR = 0 
PIR = РТВ + 1 
CARRY = LOW 
ORDER BIT OF PTR 
NO YES 


Fig. 2.7: MusicFlowchart 
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NOTE NUMBER 
— KEY NUMBER 
PLAY NOTE 

NUMBER 


3 BEEPS FOR 
WARNING 


SHIFT PILEN 
LOW ORDER BIT 
INTO CARRY 


TEMP = PILEN 
SHIFTED RIGHT ONE 
POSITION 


YES 
CARRY = 0? 


NOTE TABLE (TEMP) 
= KEY NUMBER 


SHIFT KEY NUMBER 
LEFT 4 PLACES 


NOTE TABLE (TEMP) 
= [NOTE TABLE (TEMP) 
OR KEY NUMBER] 


PILEN = PILEN + 1 


Fig. 2.7: Music Flowchart (Continued) 
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"NUMKEY."' (The program is shown in Figure 2.9). The second part 
begins at the label '"PLAYEM"' and its function is to play the stored 
notes. Both parts of the program use the PLAYNOTE subroutine 
which looks up the note and duration constants, and plays the note. 


This routine begins at the label *PLAYIT," and its flowchart is 
shown in Figure 2.8. 


30 


PLAY NOTE 
NUMBER 


USE NOTE NUMBER 
TO LOOK UP 
DURATION 


USE NOTE NUMBER 
TO LOOK UP NOTE 
CONSTANT 


LOOP FROM ОТО 
NOTE CONSTANT 
TO WASTE TIME 


TOGGLE SPEAKER 


DURATION = 
DURATION —1 


DURATION 
= 0? 


RETURN 


Fig. 2.8: PLAYIT Flowchart 
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$ MUSIC FLAYER PROGRAM 
5 USES 16 - KEY KEYBOARD AND BUFFERED SPEAKER 
$PROGRAM PLAYS STORED MUSICAL NOTES. 

$THERE ARE TWO MODES OF OPERATION: INPUT ANI PLAY. 
$INFUT MODE IS THE DEFAULT» AND ALL NON-COMMANII KEYS 
PRESSED (0-0) ARE STORED FOR REPLAY. IF AN OVERFLOW 
$üCCURS» THE USER IS WARNED WITH A THREE-TONE WARNING. 
;THE SAME WARBLING TONE IS ALSO USED TO SIGNAL А 
$RESTART,OF THE PROGRAM. 


, 
GETKEY =$100 


FILEN =$00 $LENGTH OF NOTE LIST 

TEMF =$01 $ TEMFORARY STORAGE 

PTR =$02 $CURRENT LOCATION IN LIST 

FREQ =$03 $TEMFORARY STORAGE FOR FREQUENCY 
TUR -%04 $TEMF STORAGE FOR BURATION 

TABEG  -$300 $TABLE TO STORE MUSTC 

ОРВ аФАС00 %УТА OUTPUT FORT Е 

TIRE =$AC02 SVIA PORT E DIRECTION REGISTER 

* = $200 sORIGIN 


$ 

COMMAND LINE INTERPRETER 
ФЕ AS INFUT MEANS RESET POINTERS» START OVER, 
$E MEANS FLAY CURRENTLY STOREN NOTES 


% 
; 
; ANYTHING ELSE IS STORED FOR REPLAY. 
$ 


0200: A? 00 START LDA ЖО $CLEAR NOTE LIST LENGTH 
0202: 85 00 STA FILEN 
0204: 18 с.с $CLEAR NIBBLE MARKER 
0205: 20 00 01 МХКЕҮ JSR GETKEY 
0208: С9 ОҒ CMP #15 $18 KEY #157 
0204: nO OS ENE NXTST $NO» ПО NEXT TE 
0206: 20 87 02 JSR REEFS $TELL USER OF CLEARING 
020Ғ: 90 EF ВСС START $CLEAR FOINTERS AND START OVER 
0211: C9 OE NXTST CMF #14 ;IS KEY #14? 
0213: 00 06 ЕМЕ NUMKEY INO, KEY IS NOTE NUMBER 
0215: 20 48 02 JSR РІ-АҮЕМ SELAY NOTES 
0218: 18 CLC 
0219: 90 EA ЕСС NXKEY $GET NEXT СОММАМП 
y 
ROUTINE TO LOAD NOTE LIST WITH NOTES 
2 
0218: 85 01 NUMKEY STA TEMP $S6VE KEY» FREE А 
o21in: 20 70 02 JSR PLAYIT IPLAY NOTE 
0220: А5 00 LDA FILEN СЕТ LIST LENGTH 
02221 C9 FF CMF £*$FF $ OVERFLOW? 
0224: I0 05 BNE ОК МО» ALM NOTE TO LIST 
0226: 20 87 02 JSR BEEPS $YES» WARN US 
0229: 90 ПА ЕСС МХКЕҮ $RETURN TO INFUT MODE 
022Bi 4A OK LSR A SHIFT LOW RIT INTO NIBELE POINTER 
022C: АВ TAY USE SHIFTED NIBELE POINTER AS 
КҮТЕ INDEX 
0220: AS 01 LIA TEMF $RESTORE КЕҮЖ 
022F! BO 09 BCS FINRYT PIF BYTE ALREATIY HAS 1 NIRHLE» 
$FINISH IT AND STORE 
0251: 29 OF AND 4200001111 $198T NIRBLE» MASK HIGH NIBBLE 
02333 99 00 O3 STA TAREG»Y ЗАМЕ UNFINISHED 1/2 BYTE 
0236: Е6 00 INC FILEN $POINT TO NEXT NIBBLE 
0238: 90 СВ RCC NXKEY POET NEXT REYSTRORE 
0234: OA FINBYT ASL. А SHIFT NIBRLE 2 TO HIGH ORDER 
023В: OA ASL A 
023C? OA ASL. A 
o23n: OA ASL. A 
O23E% 19 00 05 ORA TAREG»Y $JO0IN 2 NIBRLES AS BYTE 
0241: 99 00 03 STA TAREG»Y ў... ANT STORE, 
0244; E4 00 INC FILEN $POINT TO NEXT NIBBLE IN NEXT RYTE 
2246: ВСС МХКЕҮ $ RETURN 


Fig. 2.9: Music Program 
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$81NCE TWO RUNS THROUGH THE OUTER LOOF MAKES 
$0NE CYCLE OF THE TONE. 


0248: LUX жо PELEAR POINTER 

0244: STX РТК 

024С: LOA РТК PILOAT АСОМ W/CURRENT FTR VAL 

024Е: LSR A SHIFT NIBRLE INDICATOR INTO CARRY 

024F! TAX SUSE SHIFTED NIHELE POINTER 
$648 BYTE POINTER 

0250: LIA TAREG»X LOAN NOTE TO PLAY 

02831 BCS ENIRYT PLOW NIHRLE USEIN, GET HIGH 

0255: AND *200001111 $MASN QUT HIGH RITS 

02871 BCC FINISH $PLAY NOTE 

0259: ЕМПВҮТ ANT £X11110000 $THROU AWAY LOW NIBRLE 

O25R3 LSR A $8HIFT INTO LOW 

0350: LSR A 

0250: LSR A 

095Е? LSR A 

OSSF: 2 FINISH JSR PLAYIT SCALCULATE CONSTANTS & PLAY 

02621 2 LEX #20 PBRETWEEN-NOTE DELAY 

02641 2 JSR DELAY С 

02671 2 ІМС РТК FONE NIBRLE USED 

02691 " LEA ҒТК 

026R? CMF PILEN SEND OF LIST? 

02610: x BCC LOOF №0» GET NEXT NOTE 

O26F 3 RTS $ ONE 


, 


3ROUTINE TO 00 TABLE LOOK UP» SEFARATE REST 


5 % 
| 02681 TONE STA FREQ S FREQ IS TEMP FOR Ф OF CYCH 
СУГУН TE LOA *$FF 38ET UP DATA DIRECTION КЕС 
ORAC? STA DURE 
O2AF? LIA #400 ҘА I8 SENT TO PORT» START HI 
(0281! LEX TUR 
'O2E3! FL EDY FREQ 
0285: z PEY 
0286: ELC 
02871 BCC +2 
02891 ^ BNE FLL $INNER» 10 US LOOF 
O2REY 2 EOR #$FF $COMFLEMENT 1/0 PORT 
ORRI: STA OPR Seo ANI SET ІТ 
o2tot REX 
09612 : BNE FL2 $QUTER LOOF 
02031 RTS 
TABLE OF NOTE CONSTANTS 
$ CONTAINS: 
SCOCTAVE BELOW MIDDLE CJ ! G»A»B 
$LOCTAVE OF MIDDLE CJ t CrlvEsFoF ts GrGtyAvK 
$EOCTAVE ABOVE MIDDLE CJ 3 C 


, 

озса: NOTAE BYT %ҒЕУ%Е2»%909»>%БЕ)ФА9»%90/%6ВЕ 
0251 

ORCA: 

02671 

o208t 

02C91 

O2CAt : 
озсв: BYT $86»57E98$77» $70 0 $64, $8E 
02CC? 

o2cnt 

ORCE? 

O2CFt 

озпо: 


, 

PLAYIT CMP #13 SREST? 
ENE SOUND мо, , 
LOX %%54 $IELAYSNÜTE LENGTHz,218EC 
JSR DELAY 
RTS 
TAX PUSE KEY# AS ІМПЕХ.» 
LOA ПШКТАН»Х $64. TO FIND DURATION, 
STA TUR ТОКЕ DURATION FOR USE 
LIA NOTARYX SLOAN NOTE VALUE 
JSR TONE f 
RTS 


STABLE OF NOTE DURATIONS IN & OF 1/2 CYCLES 
$S8ET FOR А NOTE LENGTH OF ABOUT .21 - 
У 
0211; 55 DURTAR RYT $55»4$60»56HE» $72» BBO OF» $94 
o2nm2: 60 
0213: GE 
ORNA? 72 
020189; 80 
02016: BF 
0217: 94 
0218: Al BYT BAL ФЛАУ БЕО SRP $17» SEM 
0219: AA 
озпа: ЕЗ 
ORDB? RF 
ORDE? 07 
озии: EA 
SYMBOL TABLE? . 
GETREY 0100 i LE 0000 ТЕМР 0001 
РТК 0002 "REG 0003 пик 0004 
TAREG 0300 ӘРЕ ас00 DORE ACO? 
START 0200 SE 0205 NXTST 5 
NUMKE Y O21K < дәй FINRYT 
FLAYEM 0248 C E ENDRYT 
“ЕБТ 0270 SOUND 
0287 \ 0290 Hm d 
0248 е; ORES FLL УЯ] 
NOTAK озса DURTAR 0201 


02871 ЙА EP LIA &$FF 3HURATION FOR BEEFS 
02891 STA BUR 

90288: LIA #$4B CODE FOR E2 

o28n: JSR TONE 91ST NOTE 

02901 i LIA #638 $CORE FOR n2 

02921 6 JSR ТОМЕ 

0299: LIA £$4R 

02971 6 JSR TONE 

029A? CLC 

099В: RTS 


E 


$VARIABLE-LENGTH. DELAY 


, 
DELAY LOY *$FF 
OLY NOF 
BNE 
EY 
BNE $10 US LOOF 
ПЕХ 
ЕМЕ DELAY 3L00F TIME = 2554ЖГХ2 
RTS 


, 
;3ROUTINE TO MAKE TONE? Ж OF 1/2 CYCLES IS IN ІШЕ?» 
PAND 1/2 CYCLE TIME IS IN А, LOOP TIMES2OXDAJ4-246 US 


Fig. 2.9: Music Program (Continued) Fig. 2.9: Music Program (Continued) 
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The main routines are called, respectively, NXKEY, NUMKEY, 
and BEEP3 for the note-collecting program, and PLAYEM and 
DELAY for the note-playing program. Finally, common utility 
routines are TONE and PLAYIT. 

Let us examine these routines in greater detail. The program resides 
at memory addresses 200 and up. Note that the program, like most 
others in this book, assumes the availability of the GETKEY routine 
described in Chapter 1. 

The operation of the NXKEY routine is straightforward. The next 
key closure is obtained by calling the GETKEY routine: 


START LDA #0 
STA PILEN Initialize length of list to 0 
CLC 

NXKEY JSR GETKEY 


The value read is then compared to the constants “15° and “14” for 
special action. If no match is found, the constant is stored in the note 
list using the NUMKEY routine. 


CMP #15 

BNE NXTST 

JSR BEEP3 

BCC START 
NXTST CMP #14 

BNE NUMKEY 

JSR PLAYEM 

CLC 

BCC NXKEY 


Exercise 2-3: Why are the last two instructions in this routine used in- 
stead of an unconditional jump? What are the advantages and disad- 
vantages of this technique? 


Every time key number 15 is pressed, a special three-tone routine 
called BEEP3 is played. The BEEP3 routine is shown at address 0287. 
It plays three notes in rapid succession to indicate to the user that the 
notes in the memory have been erased. The erasure is performed by 
resetting the list length PILEN to zero, The corresponding routine ap- 
pears below: 
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BEEP3 LDA #$FF Beep duration constant 
STA DUR 
LDA #$4B Code for E2 
JSR TONE Ist note 
LDA #$38 Code for D2 
JSR TONE 2nd note 
LDA #$4B Code for E2 
JSR TONE 3rd note 
CLC 
RTS 


Its operation is straightforward. 

The NUMKEY routine will save the code corresponding to the note 
in the memory. As in the case of a Teletype program, the computer 
will echo the character which has been pressed in the form of an audi- 
ble sound. In other words, every time a key has been pressed, the pro- 
gram will play the corresponding note. This is performed by the next 
two instructions: 


STA TEMP 
JSR PLAYIT 


NUMKEY 


The list length is then checked for overflow. If an overflow situation is 
encountered, the player is advised through the use of the three-tone se- 
quence of BEEP3: 


LDA PILEN Get length of list 
CMP #$FF Overflow? 

BNE OK No: add note to list 
JSR BEEP3 Yes: warn player 
BCC NXKEY Read next key 


Otherwise, the new nibble (4 bits) corresponding to the note identifica- 


tion number is shifted into the list: 


OK LSRA 


TAY 
LDA TEMP 


Shift low bit into 
nibble pointer 
Use as byte index 
Restore key # 


Note that the nibble-pointer is divided by two and becomes a byte in- 
dex. It is then stored in register Y, which will be used later to perform 
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GIA eG, to the appropriate byte location within the table The situation in the list is: 
Depending on the value which has been shifted into the carry bit, the 
nibble is stored either in the high end or in the low end of the table's E 
entry. Whenever the nibble must be saved in the high-order position of А " T ap ete 
the byte, a 4-bit shift to the left is necessary, which requires four in- TABEG F 0 
structions: 
BCS FINBYT Test if byte has a nibble ee 
AND #%00001111 Mask high nibble PILEN ad 2 
STA TABEG,Y Save 
INC PILEN Next nibble 3 
BCC NXKEY 
FINBYT АДА | 2 2 1 1. BE || | | Á | | | 
ASL A 4 
ASL A 
ASL A Fig. 2.10: Entering a Note in the List 


А , А . Shift “6” into the high-order position of A: 
Finally, it can be saved in the appropriate table address, 


FINBYT ASL A 
ORA TABEG,Y 


ASL A 
STA TABEG,Y ASL A 
> we LA A = 60 (h 
The pointer is incremented and the next key is examined: з RR 
Write A into table: 
INC PILEN 
BCC NXKEY 


ORA TABEG,Y A = 16X (where X is the 


Р : З previous nibble in the table) 
Let us look at this technique with an example. Assume: 


STA TABEG,Y Restore old nibble with new 


PILEN = 9 (length of list) nibble 
TEMP = 6 (key pressed) 
The Subroutines 
The effect of the instructions is: 
PLAYEM Subroutine 
OK LSRA A will contain 4, C will con- 
tain 1 The PLAYEM routine is also straightforward. The PTR memory 
TAY Y=4 location is used as the running nibble-pointer for the note table. As 
LDA TEMP A=6 before, the contents of the running nibble-pointer are shifted to the 
BCS FINBYT Cis 1 and the branch occurs right and become a byte pointer. The corresponding table entry is then 
loaded using an indexed addressing method: 
a6 37 
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PLAYEM LDX #0 
^J STX PTR PTR - 0 
LDA PTR 
LOOP LSR A 
TAX 
LDA TABEG,X 
BCS ENDBYT 
AND #%00001111 
BCC FINISH 
ENDBYT AND 497911110000 
LSRA 
LSRA 
LSRA 
LSRA 


Depending upon the value of the bit which has been shifted into the 
carry, either the high-order nibble or the low-order nibble will be ex- 
tracted and left-justified in the accumulator. The subroutine PLAYIT 
described below is used to obtain the appropriate constants and to 
play the note: 


FINISH JSR PLAY IT Play note 


A delay is then implemented between two consecutive notes, the run- 
ning pointer is incremented, a check occurs for a possible end of list, 
and the loop is reentered: 


LDX #$20 Delay constant 
JSR DELAY Delay between notes 
INC PTR One nibble used 
LDA PTR 
CMP PILEN Check for end of list 
BCC LOOP No: get next note 
RTS Done 

PLAYIT Subroutine 


The PLAYIT subroutine plays the note or implements a rest, as 
specified by the nibble passed to it in the accumulator. This subroutine 
is called ‘““PLAYNOTE”’ on the program flowchart. It merely looks 
up the appropriate duration for the note from table DURTAB, and 
saves it at address DUR (at memory location 4). It then loads the ap- 
propriate half-period value from the table at address NOTAB into the 


38 


MUSIC PLAYER 


A register, using indexed addressing, and calls subroutine TONE to 
play it: 


PLAYIT “CMP #13 Check for a rest 
BNE SOUND No 
LDX:#$54 Delay = .21 sec (note duration) 
JSR DELAY If rest was specified 
RTS 

SOUND TAX Use key # as index 
LDA DURTAB,X_ To look up duration 
STA DUR 
LDA NOTAB,X 
JSR TONE 
RTS 

TONE Subroutine 


The TONE subroutine implements the appropriate wave form 
generation procedure described above, and toggles the speaker at the 
appropriate frequency to play the specified note. It implements a 
traditional two-level, nested loop delay, and toggles the speaker. by 
complementing the output port after each specified delay has elapsed: 


TONE STA FREQ 


A contains the half-cycle time on entry. It is stored in FREQ. The loop 
timing will result in an output wave-length of: 


(20 x A + 26) us 
Port B is configured as output: 


LDA #$FF 
STA DDRB 


Registers are then initialized. A is set to contain the pattern to be out- 
put. X is the outer loop counter. It is set to the value DUR which 


contains the number of half cycles at the time the subroutine is called: 


LDA #$00 
LDX DUR 
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The inner loop counter Y is then initialized to FREQ, the frequency 
constant: 


FL2 LDY FREQ 
and the inner loop delay is generated as usual: 


FL1 DEY 
CLC 
BCC .+2 
BNE ЕІ 10 us inner loop 


Then the output port is toggled by complementing it: 


EOR #$FF 
STA OPB 


and the outer loop is completed: 


DEX 
BNE FL2 
RTS 


The DELAY subroutine is shown in Figure 2.9 at memory location 29C 
and is left as an exercise. 


SUMMARY 


This program uses a simple algorithm to remember and play tunes. 
All data and constants are stored in tables. Timing is implemented by 
nested loops. Indexed addressing techniques are used to store and 

- retrieve data. Sound is generated by a square wave. 


EXERCISES 


Exercise 2-4: Change the note constants to implement a different range 
of notes. 

Exercise 2-5: Store a tune in memory in advance. Trigger it by pressing 
key 0.” 

Exercise 2-6: Rewrite the program so that it will store the note and 
duration constants in memory when they are entered, and will not 
need to look them up when the tune is played. What are the disadvan- 
tages of this method? 
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THE RULES 


This is a game designed for two competing players. Each player tries to 
quickly decipher the computer’s coded numbers. The players are alter- 
nately given a turn to guess. Each player attempts to press the hexa- 
decimal key corresponding to a 4-bit binary number displayed by the 
program. The program keeps track of the total guessing time for each 
player, up to a limit of about 17 seconds. When each player has correctly 
decoded a number, the players’ response times are compared to deter- 
mine who wins the turn. The first player to win ten turns wins the match. 

The program signals each player’s turn by displaying an arrow 
pointing either to the left or to the right. The player on the right will be 
signaled first to initiate the game. Тһе program's ‘‘prompt’’ is shown 
in Figure 3.1. 

A random period of time will elapse after this prompt, then the bot- 
tom row of LEDs on the Games Board will light up. The left-most 
LED (LED #10) signals to the player to proceed. The four right-most 
LEDs (LEDs 12, 13, 14, and 15) display the coded binary number. 
This is shown in Figure 3.2. In this case, player 1 should clearly press 
key number 5. If the player guesses correctly, the program switches to 
player 2. Otherwise, player 1 will be given another chance until his or 
her turn (17 seconds) is up. It should be noted here that for each 
number presented to the player, the total guessing time is accumulated 
to a maximum of about 17 seconds. When the maximum is reached, 
the bottom row will go blank and a new number will be displayed. 

The program signals player 2’s turn (the player on the left) by 
displaying a left arrow on the LEDs as shown in Figure 3.3. Once both 
players have had a turn to guess a binary digit, the program will signal 
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-0 -© © 
-O 9 -O 
Oma -O 


Fig. 3.1: Prompt Signals the Right Player to Play 


lo n R 13 14 15 
—— A 
Go BINARY NUMBER 


Fig. 3.2: Bottom Row of LEDs Displays Number to be Guessed 


] 2 3 
4 5 6 


Fig. 3.3: It is Player 2's Turn (Left Player) 


the winner by lighting up either the left-most or the right-most three 
LEDs of the bottom row. The winner is the player with the shortest 
guessing time. The game is continued until one player wins ten times. 
He or she then wins the match. The computer signals the match win- 
ner by blinking the player’s three LEDs ten times. At the end of the 
match, control is returned to the SYM-1 monitor. 


A TYPICAL GAME 


The right arrow lights up. The following LED pattern appears at the 
bottom: 10, 13, 14, 15. The player on the right (player 1) pushes key 
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“С,” and the bottom row of LEDs goes blank, as the answer is incor- 
rect. Because player 1 did not guess correctly and he or she still has 
time left in this turn, a new number is offered to player 1. LEDs 10, 
13, 14, and 15 light up and the player pushes key ‘‘7.’’ He or she wins 
and now the left arrow lights up, indicating that it is player 2's turn. This 
time the number proposed is 10, 12, 15. The left player pushes key “9.” 
At this point, LEDs 10, 11, and 12 light up, indicating that the player 
is the winner for this turn as he/she has used less total time to make a 
correct guess than player 1. 

Let us try again. The right arrow lights up; the number to translate 
appears in LEDs 10, 13, 14, and 15. Player 1 pushes key “7,” and a 
left arrow appears. The next number lights LEDs 10 and 14. Player 2 
pushes key ‘‘2.’’ Again, the left-most three LEDs light up at the bot- 
tom, as player 2 was faster than player 1 at providing the correct 
answer. 


THE ALGORITHM 


The flowchart corresponding to the program is shown in Figure 3.4. 
A first waiting loop is implemented to measure the time that it takes for 
player 1 to guess correctly. Once player 1 has achieved a correct guess, 
his or her total time is accumulated in a variable called TEMP. It is 
then player 2's turn, and a similar waiting loop is implemented. Once 
both players have submitted their guesses, their respective guessing 
times are compared. The player with the least amount of time wins, 
and control flows either to the left or to the right, as shown by labels 1 
and 2 on the flowchart in Figure 3.4. A secondary variable called 
РІҮКІ or PLYR2 is used to count the number of games won by a 
specific player. This variable is incremented for the player who has 
won and tested against the value 10. If the value 10 has not been 
reached, a new game is started. If the value 10 has been reached, the 
player with this score is declared the winner of the match. 


THE PROGRAM 


The corresponding program uses only one significant data struc- 
ture. It is called NUMTAB and is used to facilitate the display of the 
random binary numbers on the LEDs. Remember that LED #10 must 
always be lit (it is the ‘‘proceed’’ LED). LED #11 must always be off. 
LEDs 12, 13, 14, and 15 are used to display the binary number. 
Remember also that bit position 6 of Port 1B is not used. As a result, 
displaying a ‘‘0’’ will be accomplished by outputting the pattern 
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START 


WINCOUNT 1 = 0 
WINCOUNT 2 = 0 


TRANSLATE 


**00000010."* Outputting a “177 will be accomplished with the pattern 
**10000010.’’ Outputting ‘‘2’’ will be accomplished with the pattern 
““00100010.?” Outputting ‘‘3’’ will be accomplished with the pattern 
“10100010,” etc. (See Figure 3.5) 

The complete patterns corresponding to all sixteen possibilities are 
stored in the NUMTAB table of the program. (See Figure 3.6.) Let us 
examine, for example, entry 14 in the NUMTAB (see line 0060 of the 
program). It is ‘‘00111010.’’ The corresponding binary number to be 
displayed is, therefore: “00111.” 


7 6 5 4 3 2 1 0 
НИЕ ЖЕ 


SHOW THAT IT IS 
PLAYER 1’s TURN 


GET PLAYER 1's 
GUESS WHILE 
TIMING INPUT 


NO 


GUESS on 
? 

CORRECT? PLA ER s 

TIME? 


It is “1110” or 14. Remember that bit 6 on this port is always '*0."' 


YES 


Low Memory Area 
STORE PLAYER 15 
TIME IN TEMP 


LIGHT LEDs TO 
SHOW PLAYER 1 
WINS ROUND 


LIGHT LEDs TO 
SHOW PLAYER 2 


Memory locations 0 to 1D are used to store the temporary variables 
WINS ROUND 


and the NUMTAB table. The functions of the variables are: 


SHOW THAT IT IS 
PLAYER 2's TURN 


TEMP Storage for random delay-length 

CNTHI,CNTLO Time used by a player to make 
his or her move 

CNTIH,CNTIL Time used by player 1 to make 


INCREMENT PLAYER 
2's WINCOUNT 


INCREMENT PLAYER 
175 WINCOUNT 


GET PLAYER 2's 


SHOW PLAYER 
l's WIN 
YES 


NEU. PLAYER 1% LANERO his or her move (permanent 
WINCOUNT WINCOUNT storage) 

ў p PLYRI Score for Player 1(number of 
games won so far, up toa 
maximum of ten) 

PLYR2 Same for player 2 
NUMBER Random number to be guessed 


SCR and following Scratch area used by the 
random number generator 


In the assembler listing, the method used to reserve memory loca- 
tions in this program is different from the method used in the program 
in Chapter 2. In the MUSIC program, memory was reserved for the 
variables by simply declaring the value of the symbols representing the 


Fig. 3.4: Translate Flowchart 


44 45 


TRANSLATE 


6502 GAMES 
ТРЕ" LED AO variable locations with the statement: 
LA <VARIABLE NAME> = (MEMORY ADDRESS» 
4 Ер 
PAQ D cuu a d In this program, the location counter of the assembler is incremented 
PAI ne with expressions of the form: 
PA2 С LED 3 2 
is Se а анайы 5. ЕНГІ 
p Ек. аг Б 
PAS Ree eee LED 6 Thus, the symbols for the variable locations in this program are 
NN declared as ‘‘labels,’’ while, in the MUSIC program, they are ‘‘sym- | 
bols” or **constant symbols."' | 
= EDAS The program in this chapter consists of one main routine, called | 
+5 MOVE, and five subroutines: PLAY, COUNTER, BLINK, DELAY, 
LED А6 RANDOM. Let us examine them. The data direction registers A and B 
for the VIA's #1 and #3 of the board must first be initialized. DDR1A, 
DDRIB, and DDR3B are configured as outputs: 
E EAA SARR 5 
id АЛА DD. режа с S DERE 
PBI pri LED 10 STA DDRIB 
s 5 42-2. d 
ERa SN S DDR3A is conditioned as input: 
LED B3 LDA 40 
= +5 STA DDR3A 
EDS Finally, the variables PLYR1 and PLYR2, used to accumulate the 
3302 number of wins by each player, are initialized to zero: 
PBS < LED 14 STA PLYRI 
NN The main body of MOVE is then entered. A right arrow will be 
LED B7 displayed to indicate that it is player 2's turn. A reminder of the LEDs 
connections is shown in Figure 3.5. In order to display a right arrow, 
LEDs 1, 4, 5, 6, and 7 must be lit (refer also to Figure 3.1). This is ac- 
complished by outputting the appropriate code to Port 1A: 


ra +5 
MOVE LDA #%01111001 


Fig. 3.5: LED Connections STA PORTIA Display right arrow 
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The bottom line of LEDs must be cleared: 


LDA #0 
STA PORTIB 


Finally, the counters measuring elapsed time must be cleared: 


STA CNTLO 
STA CNTHI 


We are ready to play: 
JSR PLAY 


The PLAY routine will be described below. It returns to the calling 
routine with a time-elapsed measurement in locations CNTLO and 
CNTHI. 

Let us return to the main program (line 0082 in Figure 3.6). The 
time-elapsed duration which has been accumulated at locations 
CNTLO and CNTHI by the PLAY routine is saved in a set of perma- 
nent locations reserved for player 1, called CNTIL, CNT1H: 


LDA CNTLO 
STA CNTIL 
LDA CNTHI 
STA CNTIH 


It is then player 2's turn, and a left arrow is displayed. This is ac- 
complished by turning on LEDs 3, 4, 5, and 6: 


LDA #%000111100 Display left arrow 
STA PORTIA 


Then LED #9 is turned on to complete the left arrow: 


LDA #1 
STA PORTIB 


As before, the time-elapsed counter is reset to zero: 


LDA #0 
STA CNTLO 
STA CNTHI 
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LINE 
$’ TRANSLATE’ 
*PROGRAM TO TEST 2 PLAYER'S SPEED 
3IN TRANSLATING A BINARY NUMBER TO A SINGLE 
HEXADECIMAL DIGIT. EACH PLAYER IS GIVEN A 
TURN? AS SHOWN BY A LIGHTED LEFT OR RIGHT 
POINTER, THE NUMBER WILL SUDDENLY FLASH ON 
$LEIS 12-15, ACCOMPANIED BY THE LIGHTING 
ОҒ LED 410, THE PLAYER MUST THEN 
$PUSH THE CORRESPONDING BUTTON. AFTER 
$BOTH PLAYERS TAKE TURNS; RESULTS ARE 
35HOUN ON BOTTOM КОМ, AFTER 10 WINS? 4 
jA PLAYER'S RESULTS WILL FLASH» H 
*SHOWING THE BETTER PLAYER, THEN i 
$ THE GAME RESTARTS. 
; 
81/0: 


$ 
PORTIA 
РОКТІВ 
DORIA 


$6001 *#LEDS 1-8 

$6000 i LEDS 9-15 

$6003 

DIRIB $6002 

PORT3A ФАС01 3KEY STROBE ІМРОТ, 
РОКТЗВ $ACOO $KEY # OUTPUT. 
DDR3A $ACOZ 

BDRSE $6Co2 


yog uon dg 


А 

VARIABLE STORAGE: 

% 

$ 

TEMF Жж=Жж+1 

CNTHI Ж-ж41 $TEMFORARY STORAGE FOR AMT. OF 
TIME FLYR USES TO GUESS. 

CNTLO ж=ж+1 

СМТІН x-*ti АМТ, OF TIME PLYRi USES TO GUESS, 

СМТ. ж=Жж+1 

FPLYRi Ж-Ж41 $SCORE OF & WON FOR PLYR1. 

PLYR2 ж=Жж+і $FLAYER 2 SCORE. 

NUMBER x-**1 #STORES NUMBER TO BE GUESSED, 

SCR xz*t6 %5СКАТСНРАП FOR RND, # GEN. 


$ 
$TARLE OF ‘REVERSED’ NUMBERS FOR DISPLAY 
ЗІМ BITS 3-8 OF PORTIB, OR LEDS 12-15. 


ғ 
NUMTAB «BYTE 100000010 
«BYTE 710000010 
«ВҮТЕ 200100010 
«ВҮТЕ 210100010 
«ВҮТЕ 700010010 
BYTE 710010010 
«ВҮТЕ 100110010 
«ЕҮТЕ 710110010 
«BYTE %00001010 
«ВҮТЕ 210001010 
«ВҮТЕ Х00101010 
«ВҮТЕ 710101010 
«ВҮТЕ 700011020 
«ВҮТЕ 210011010 
«ВҮТЕ 700111010 
BYTE. 210111010 


; 
МАІМ FROGRAM 


LIA $$FF #SET UF PORTS i 
STA DDRIA i 
STA DDR1B 1 
STA ІШЕЗЕ 1 
LIA 40 ! 
STA DDK3A 

STA PLYR1 #CLEAR NO. OF WINS, 

STA PLYR2 

LUA 4201111001 

STA PORTIA #SHOW RIGHT ARROW. 

LDA #0 

STA PORTIB 

STA CNTLO $CLEAR COUNTERS. 

STA CNTHI 

JSR PLAY $GET FLAYER 1'S TIME. 

LDA CNTLO $XFER TEMP COUNT TO PERMANENT STORAGE. 

STA CNTIL 

LUA CNTHI 


Fig. 3.6: Translate Program 
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STA CNT1H 

0086 0220 A? 3C LIA 42000111100 ;SHOW LEFT ARROW. 0166 0204 BNE CNTSUB ITRY KEYS AGAIN IF NO OVERFLOW, 
0087 022F 8D 01 AO STA PORTIA 0167 0266 INC CNTHI FOVERFLOW? INCREMENT HIGH BYTE. 
0088 0232 А9 01 LDA #1 ite 928 — BNE CNTSUB ?TRY KEYS AGAIN. 

0089 0234 8n 00 40 STA PORTiB NISH RTS $DONE? TIME ВА | 
b a es STAPA 012075276 қ М OUT OR KEY PRESSED. 
0091 0239 85 02 STA CNTLO $CLEAR COUNTERS, 0171 902СВ #SUBROUTINE ‘BLINK’ 

0092 023R 85 01 STA CNTHI 0172 02СВ BLINKS LEDS WHOSE BITS ARE SET IN ACCUMULATOR [ 
0093 02310 20 ВС 02 JSR PLAY $GET PLAYER 2/8 TIME, 0173 02СВ FON ENTRY. | 
0094 0240 AS 01 LIA CNTHI $GET PLAYER 2'S COUNT AND... 0174 О2СВ ; | 
0095 0242 CS O3 CMP CNT1H {СОМРАВЕ TO PLAYER 1°S, 0175 02СВ BLINK LDX #20 #20 BLINKS. 

0096 0244 FO 04 BEQ EQUAL $CHECK LOW ORDER BYTES TO RESOLVE WINNER. „917 02Ср б STX CNTHI ISET BLINK COUNTER. 
0097 0246 90 27 BCC PLR2 $PLAYER 2 HAS SMALLER COUNT; SHOW IT. 0177 02СҒ STA CNTLO $BLINK REGISTER. 

0098 0248 BO 08 BCS PLRi PLAYER 1 HAS SMALLER COUNT, SHOW IT. 0178 0201 BLOOP LDA CNTLO 3GET BLINK PATTERN. 
0099 0244 А5 02 EQUAL LDA CNTLO ІНІ BYTES WERE EQUAL» SO 0179 0203 EOR PORTiB BLINK LEDS, 

0100 024C #CHECK LOW BYTES, 0180 0206 STA PORTIB 

0101 0246 CS 04 CME CNTIL $COMPARE SCORES. 0181 0209 LDA #10 #SHORT DELAY. 

0102 024E 90 IF ВСС PLR2 #PLAYER 2 WINS, SHOW IT. 0182 020В JSR DELAY 

0103 0250 ВО 00 BCS PLRi jPLAYER 1 WINS» SHOW IT. 0183 O2DE DEC CNTHI 

0104 0252 A? FO РОКІ LDA 4211110000 + LIGHT RIGHT SIDE OF BOTTOM ROW 0184 02Е0 BNE BLOOP &LOOP IF NOT DONE. 

0105 0254 8П 00 АО STA PORTIB ;TO SHOW WIN. 9185 02Е2 RTS 

0106 0257 А9 00 LDA 40 0186 02E3 ; 

0107 0259 8D O1 AO STA PORTIA $ CLEAR LOW LEDS. 0187 02ЕЗ #SUBROUTINE ‘DELAY’ 

0108 025C A? 40 LDA #$40 $MAIT A WHILE TO SHOW WIN. 0188 02ЕЗ РСОМТЕМТ OF REG. A DETERMINES DELAY LENGTH. 
0109 025Е 20 ЕЗ 02 JSR DELAY 0189 02ЕЗ ; 

0110 0261 Е6 05 INC FLYRi iPLAYER 1 WINS ONE MORE... 0190 02ЕЗ DELAY STA TEMP 

0111 0263 A? ОА LDA #10 %...НА5 HE WOM 107 0191 02Е5 ші LOY #810 

0112 0265 C5 05 CHF PLYRi 01372; one? DL2 LDX #$FF 

0113 0267 ТО АВ BNE MOVE FIF NOT, PLAY ANOTHER ROUND. 2472 9257, М3 ЕХ 

0114 0269 A? FO LIA 4211110000 YES - GET BLINK PATTERN, 0195 02ЕС BNE DLS 

0118 026R 20 Ch 02 JSR BLINK PBLINK WINNING SIDE. 0195 O2ED ENE 

0116 026E 40 RTS $ENDGAME: RETURN TO MONITOR, 0197 02ЕҒ DNE. DE 

0117 026F А9 OE PLR2 LDA #41110 $LIGHT LEFT SIDE OF BOTTOM. 0198 02 DEC TEMP 

0118 0271 8D 00 AO STA РОКТІВ отоо F1 BNE DL1 

0119 0274 A? 00 LDA 40 2Р3 RTS 

0120 0276 Вр 01 АО STA PORTIA ;CLEAR LOW LEDS. 9200 02Ғ4 $ 

0121 0279 49 40 LDA &$40 WAIT A WHILE TO SHOW WIN. 020 02Ғ4 #SUBROUTINE ‘RANDOM’ 

0122 0278 20 ЕЗ 02 Jer DELAY 2 02Ғ4 3RANDOM NUMBER GENERATOR. 

0123 027E Eó 06 INC PLYR2 IPLAYER 2 HAS WON ANOTHER ROUND... 9203 02Ғ4 SRETURNS RANDOM NUMBER IN ACCUM, 

0124 0280 A? OA LIA #10 $...HAS HE WON 107 lame Cu. ; 

0125 0282 CS 06 CMP PLYR2 0202 02Ғ4 RANDOM SEC 

0126 0284 NO 8E BNE MOVE $1F NOT; PLAY ANOTHER ROUND. 0207 xcu LDA SCR41 

0127 0286 А9 OE LIA %71110 $YES-GET PATTERN TO BLINK LETS. 0508 9257 ADC SCR+4 | 
0128 0288 20 CB 02 JSR BLINK $BLINK THEM 0209 ADC SCRtS ; 
0129 0288 40 RTS SEND. 02ҒВ STA SCR 

0130 028C n a LDX #4 

0131 028C }SUBROUTINE 'PLAY' 0215 pee LDA SCRrX 

0132 028C SGETS TIME COUNT OF EACH PLAYER; AND IF 0213 10305 STA SCRHi+X 

0133 028С FEAL GUESSES ARE МАПЕ, THE PLAYER IS 0214 0304 ВЕК 

0134 028C ;GIVEN ANOTHER CHANCE» THE NEW TIME ADDED TO 0215 BPL RNDLP 

0135 028C THE OLI. 5 0306 RTS 

0136 028C ; 0214 0307 END 

0137 028C 20 ҒА 02 FLAY JSR RANDOM $GET RANDOM NUMBER. 

0138 028F 20 ЕЗ 02 JSR WELAY $RANDOM ~ LENGTH DELAY. SYMBOL TABLE 

0139 0292 20 F4 02 JSR RANDOM $GET ANOTHER, 

0140 0295 29 OF AND £$0F $KEEP UNDER 16 FOR USE AS SYMBOL — VALUE 

0141 0297 85 07 STA NUMBER #NUMBER TO GUESS. . 

0142 0299 AA TAX SUSE AS INDEX Т0.... BLINK O2CB — BLOOP CNTAH CNTLL 

0143 0294 BS OE LDA NUMTAByX $..GET REVERSEL PATTERN FROM TABLE .«« CNTHI 0001  CNTLO CNTSUB DORIA 

0144 029C Of 00 AO ORA PORTIB Peel TO DISPLAY IN LEDS 12-15. DDR1B A002  DDR3A DDR3B DELAY 

0145 029Ғ Вр 00 AO STA PORTE Dei 02Е5 012 DL3 DONE 

0146 0242 20 BS 02 JSR CNTSUB iGET KEYSTROKE & DURATION COUNT. EQUAL 0244 FINISH KEYLP MOVE 

0147 0245 Са 07 CPY NUMBER 318 KEYSTROKE CORRECT GUESS? PURSE 0007 МИМТАВ PLAY PLR1 

0148 0247 FO ОВ REQ DONE IF SO, DONE. PORTIS yen Cei PLYR2 PORTIA 

0149 0289 A? 01 LDA #01 iNO: CLEAR OLD GUESS FROM LEDS. Е o RT3A РОКТЗВ RANDOM 

0150 0248 20 00 А0 AND PORTiR O2FF SCR START TEMP 

0151 O2AE 8n 00 А0 STA FORTIB 

0152 0281 4C 8C 02 JMP PLAY STRY AGAIN W/ANOTHER NUMBER. END OF ASSEMBLY 

0153 02BA 60 LONE RTS $RETURN W/ DURATION IN CNTLO£CNTHI 

0154 0255 у 

0155 02В5 #SUBROUTINE ‘COUNTER’ 

0156 0285 $GETS KEYSTROKE WHILE KEEPING TRACK OF ANT OF Fig. 3.6: Translate Program (Continued) 
0157 0285 ;TIME BEFORE KEYPRESS. 

0158 0285 ; 

0159 02В5 АО ОҒ CNTSUB LOY $$F SET UF KEY# COUNTER. 

0160 0287 8C 00 АС КЕҮІР STY PORTZE $OUTPUT КЕҮФ TO KEYBOARD MPXR. 

0161 O2BA 2C 01 AC ВІТ FORT3A $KEY DOWN? 

0162 02BD 10 OR BPL FINISH ;IF YES» DONE. 

0163 O2BF 88 DEY COUNT DOWN KEY Ф, 

0164 02С0 10 FS BPL KEYLP #TRY NEXT KEY. 

01465 02C2 Eé 02 INC CNTLO FALL KEYS TRIED? INCREMENT COUNT. 


Fig. 3.6: Translate Program (Continued) 
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and player 2 can play: Е 
JSR PLAY 


The time elapsed for player 2 is then compared to the time elapsed for 
player 1. If player 2 wins, a branch occurs to PLR2. If player 1 wins, a 
branch occurs to PLR1. The high bytes are compared first. If they are 
equal, the low bytes are compared in turn: 


LDA CNTHI 
CMP CNTIH 
BEQ EQUAL 

BCC PLR2 

BCS PLRI 
EQUAL LDA CNTLO 
CMP CNTIL 

BCC PLR2 
CMP CNTIL 

BCC PLR2 

BCS PLRI 


Compare high bytes 


Player 2 has lower time? 
Player 1 does 
Compare low bytes 


Once the winner has been identified, the bottom row of LEDs on his 
or her side will light up, pointing to the winner. Let us follow what 
happens when PLRI wins, for example. Player 175 right-most three 
LEDs (LEDs 13 through 15) are lit up: 


PLRI LDA #% 11110000 
STA PORTIB 


The other LEDs on the Games Board are cleared: 


LDA #0 
STA PORTIA 


A DELAY is then implemented, and we get ready to play another 
game, up to a total of 10: 


LDA #$40 
JSR DELAY 


The score for player 1 is incremented: 


INC РІҮКІ 
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is compared to 10. If it is less than 10, a return occtirs to the main 
OVE routine: 


LDA #10 
CMP PLYRI 
BNE MOVE 


therwise, the maximum score of 10 has been reached and the game is 


‘over. The LEDs on the winner’s side will blink: 


LDA #% 11110000 Blink pattern 
JSR BLINK 
RTS 


The corresponding sequence for player 2 is listed at address PLR2 
(line 117 on Figure 3.6): 


PLR2 LDA #%1110 
STA PORTIB 
LDA #0 
STA PORTIA 
LDA 4540 
JSR DELAY 
INC PLYR2 
LDA #10 
CMP PLYR2 
BNE MOVE 
LDA #%1110 
JSR BLINK 
RTS 


The Subroutines 


PLAY Subroutine 

The PLAY subroutine will first wait for a random period of time 
before displaying the binary number. This is accomplished by calling 
the RANDOM subroutine to obtain the random number, then the 
DELAY subroutine to implement the delay: 


PLAY JSR RANDOM 
JSR DELAY 
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The RANDOM subroutine will be described below. Another random 
number is then obtained. It is trimmed down to a value between 0 and 
15, inclusive. This will be the binary number displayed on the LEDs. It 
is stored at location NUMBER: 


JSR RANDOM 
AND #0F 
STA NUMBER 


Mask off high nibble 


The NUMTAB table, described at the beginning of this section, is then 
accessed to obtain the correct pattern for lighting the LEDs using in- 
dexed addressing. Register X contains the number between 0 and 15 to 
be displayed: 


TAX Use X as index 
LDANUMTAB,X Retrieve pattern 


The pattern in the accumulator is then stored in the output register in 
order to light the LEDs. Note that the pattern is OR'ed with the 
previous contents of the output register so that the status of LED 9 is 
not changed: 


ORA РОКТІВ 
STA PORTIB 


Once the random number has been displayed in binary form on the 
LEDs, the subroutine waits until the player presses a key. The 
CNTSUB subroutine is used for this purpose: 


JSR CNTSUB 


It will be described below. 

The value returned in register Y by this subroutine is compared to 
the number to be guessed, which is stored at memory address 
NUMBER. If the comparison succeeds, exit occurs. Otherwise, all 
LEDs are cleared using an AND, to prevent changing the status of 
LED 9, and the subroutine is reentered. Note that the remaining time 
for the player will be decremented every time the CNTSUB subroutine 
is called. It will eventually decrement to 0, and this player will be given 
another number to guess: 
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CPY NUMBER 
BEQ DONE 
LDA #01 
AND PORTIB 
STA PORTIB 
JMP PLAY 
DONE RTS 


Correct guess? 


No: clear old guess 
Try again 


Exercise 3-1: Modify PLAY and/or CNTSUB so that, upon timeout, 
the player loses the current round, as if the maximum amount of time 
had been taken to make the guess. 


CNTSUB Subroutine 


The CNTSUB subroutine is used by the PLAY subroutine previous- 
ly described. It monitors a player’s keystroke and records the amount 
of time elapsed until the key is pressed. The key scanning is performed 
in the usual way: 


CNTSUB LDY #$F 
KEYLP STY PORT3B 
BIT PORT3A 
BPL FINISH 
DEY Count down key # 
BPL KEYLP Next key 
FINISH BNE CNTSUB 
Each time that all keys have been scanned unsuccessfully, the time 
elapsed counter is incremented (CNTLO,CNTHI): 


INC CNTLO 

BNE CNTSUB 

INC CNTHI 

BNE CNTSUB 
FINISH RTS 


Upon return of the subroutine, the number corresponding to the key 
which has been pressed is contained in index register Y. 


Exercise 3-2: Insert some "'do-nothing" instructions into the CNTSUB 
subroutine so that the guessing time is longer. 
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BLINK Subroutine 


The LEDs specified by the accumulator contents are blinked 
(turned on and off) ten times by this subroutine. It uses memory loca- 
tion CNTHI and CNTLO as scratch registers, and destroys their 
previous contents. Since the LEDs must alternately be turned on and 
off, an exclusive-OR instruction is used to provide the automatic on/ 
off feature by performing a complementation. Because two com- 
plementations of the LED status must be done to blink the LEDs 
once, the loop is executed 20 times. Note also that LEDs must be kept 
lit for a minimum amount of time. If the “оп” delay was too short, 
the LEDs would appear to be continuously lit. The program is shown 
below: 


BLINK LDX #20 20 blinks 
STX CNTHI Blink counter 
STA CNTLO Blink register 

BLOOP LDA CNTLO Get blink pattern 
EOR PORTIB Blink LEDs 
STA PORTIB 
LDA #10 Short delay 
JSR DELAY 
DEC CNTHI 
BNE BLOOP Loop if not done 
RTS 

DELAY Subroutine 


The DELAY subroutine implements a classic three-level, nested 
loop design. Register X is set to a maximum value of FF 
(hexadecimal), and used as the inner loop counter. Register Y is set to 
the value of 10 (hexadecimal) and used as the level-2 loop counter. 
Location TEMP contains the number used to, adjust the delay and is 
the counter for the outermost loop. The subroutine design is 
straightforward: 


DELAY STA TEMP 
DL1 LDY #$10 
DL2 LDX #$FF 
DL3 DEX 
BNE DL3 
DEY 
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BNE DL2 
DEC TEMP 
BNE БІЛ 
RTS 


xercise 3-3: Compute the exact duration of the delay implemented by 
‘his subroutine as a function of the number contained in location 


RANDOM Subroutine 


This simple random number generator returns a semi-random 
umber into the accumulator. A set of six locations from memory ad- 
ress 0008 (‘‘SCR’’) have been set aside as a scratch-pad for this 
- generator. The random number is computed as 1 plus the contents of 
he number in location SCR + 1, plus the contents of the number in 
ocation SCR + 4, plus the contents of the number in location SCR 


*5 
RANDOM SEC 
LDA SCR + 1 
ADC SCR + 4 
ADC SCR + 5 
STA SCR 


Тһе contents of the scratch area (SCR and following locations) аге 
then shifted down in anticipation of the next random number genera- 
tion: 


LDX #4 

LDA SCR,X 
STA SCR + L,X 
DEX 

BPL RNDLP 
RTS 


RNDLP 


The process is illustrated in Figure 3.7. Note that it implements a 
seven-location circular shift. The random number which has been 
computed is written back in location SCR, and all previous values at 
memory locations SCR and following are pushed down by one posi- 
tion. The previous contents of SCR + 5 are lost. This ensures that the 
numbers will be reasonably random. 
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NUMBER 


Fig. 3.7: Random Number Generation 
SUMMARY 


This game involved two players competing with each other. The 
time was kept with nested loops. The random number to be guessed 
was generated by a pseudo-random number generator. A special table 
was used to display the binary number. LEDs were used on the board 
to indicate each player's turn to display the binary number, and to 
indicate the winner. 


Exercise 3-4: What happens in the case in which all memory locations 
from SCR to SCR + 5 were initially zero? 
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THE RULES 


The object of this game is to guess a secret 2-digit number generated 
by the computer. This is done by guessing a number, then submitting 
this number to the computer and using the computer's response (in- 
dicating the proximity of the guessed number to the secret number) to 
narrow down a range of numbers in which the secret number resides. 
The program begins by generating a high-pitched beep which signals 
to the player that it is ready for a number to be typed. The player must 
then type in a two-digit hexadecimal number. The program responds 
by signaling a win if the player has guessed the right number. If the 
player has guessed incorrectly, the program responds by lighting up 
one to nine LEDs, indicating the distance between the player's guess 
and the correct number. One lit LED indicates that the number 
guessed is a great distance away from the secret number, and nine lit 
LEDs indicate that the number guessed is very close to the secret 
number. 

If the guess was correct, the program generates a warbling tone and 
flashes the LEDs on the board. The player is allowed a maximum of 
ten guesses. If he or she fails to guess the correct number in ten tries, a 
low tone is heard and a new game is started. 


A TYPICAL GAME 


The computer beeps, notifying us that we should type in a guess. 


Our guess is: “40” 


The computer lights 4 LEDs We are somewhat off 
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Next guess: '*CO" 
Computer's answer: 3 LEDs We are going further away 
Next guess: “20” 


Computer's response: 3 The number must be between 
CO and 20 

Next guess: “80” 

Response: 5 We are getting closer 

Next guess: “759 

Response: 5 It’s not just below 80 

Next guess: “90” 

Response: 4 We're wandering away 

Next guess: “65” 

Response: 7 Now we're closing in 

Next guess: “607” 

Response: 9 

Next guess: “5Е” 

Response: 8 


Next guess: “61?” 
We win!!! All the LEDs flash and a high warbling tone is heard. 


THE ALGORITHM 


The flowchart for Hexguess is shown in Figure 4.1. The algorithm is 
straightforward: 


— а random number is generated 

— a guess is entered 

— the closeness of the number guessed to the secret 
number is evaluated. Nine levels of proximity are 
available and are displayed by an LED on the board. 
A closeness or proximity table is used for this pur- 
pose. 

— a win or a loss is signaled 

— more guesses are allowed, up to a maximum of 
ten. 


THE PROGRAM 
Data Structures 


The program consists of one main routine called GETGES, and two 
subroutines called LITE and TONE. It uses one simple data structure 
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HEXGUESS 


START 


GUESS NBR — 10 
NUMBER — 
RANDOM VALUE 
READ GUESS 
FROM KEYBOARD 
DECREMENT 
GUESS NBR 


TEMP — ABS 
(NUMBER-GUESS) 


COUNTER — 0 


TEMP 
<LIMITABLE 
COUNTER? 


INCREMENT 
COUNTER 


TURN ON 
COUNTER +1 
LIGHTS 


GUESS NBR = 0? 


SIGNAL A WIN SIGNAL A LOSE 


Fig. 4.1: Hexguess Flowchart 
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— a table called LIMITS. The flowchart is shown in Figure 4.1, and 


the program listing appears in Figure 4.2. 


The LIMITS table contains a set of nine values against which the 
proximity of the guess to the computer's secret number will be tested. 
It is essentially exponential and contains the sequence: 1,2,4,8,16,32 


64,128,200. 


Program Implementation 


Let us examine the program itself. It resides at memory address 200 
and may not be relocated. Five variables reside in page zero: 


GUESS is used to store the current guess 
GUESS! is the number of the current guess 
DUR and FREQ are the usual parameters re- 
quired to generate a tone (TONE subroutine) 
NUMBER is the secret computer number 


As usual, the data direction registers VIA #1 and VIA #3 are condi- 
tioned in order to drive the LED display and read the keyboard: 


Memory location DUR is used to store the duration of the tone to be 
generated by the TONE subroutine. It is initialized to “БЕ” (hex): 


The memory location GUESS* is used to store the number of guesses. 


LDA #$FF 

STA DDRIA 
STA DDRIB 
STA DDR3B 


STA DUR 


It is initialized to 10: 


START 


LDA #$0A 
STA GUESS# 


OUTPUT 
OUTPUT 
OUTPUT 


The LEDs on the Games Board are turned off: 


62 


LDA #00 
STA PORTIA 
STA PORTIB 


0200: 49 
0202: 8n 
0205: 8n 
0208: 8n 
020R! 85 
0200: А9 
020F: 85 
0211: А9 
02135: 80 
0216: 8D 

Р * an 
85 
Aa? 


3 20 
20 
OA 
да 
* OA 
да 
89 
20 
29 
05 
85 
AS 
38 


ES 


* BO 
49 
+ 38 
69 


FF 
03 
02 
02 
о? 
OA 
01 
00 
01 
00 
04 
да 
20 


96 
00 


00 
00 
oF 
00 
00 
04 


90 


05 
ЕЕ 


90 


ао 


SWELL. 


STONE, 
ENTRY LOCATION 18 $200, 


3 THE 


| VIA #3 ADT 


Q 


START 


NUMBER 


Fig. 4.2: Hexguess Program 


HEXGUESS 


THAT THE С 
COMPUTER 


ARE ALLOWED. 
Tr THEN THE COMP 
6 ANT : A WARELING 


OW LATCH OF TIMER 1 


ITA VATA MIF 


$A003 ӯ 


+2002 DRTE HATA DIRECTJ i 
$6001 SPORT A 
= $6000 SPORT ОВ 


= $0602 
= $4000 


ЎЕОКТЕ DATA MIF 
SFORT & 


TION REG + 


$8ET UP TATA BIRECTION REGISTERS 


z: BURATIONS. 
ALLOWED 


BLANK LETS 


СЕТ RANDOM NUMBER TO GUESS 


ПА FKLO SHORT HTGH TONE TO 


ISER TO INFUT GUESS. 


STA 6 
JSR бЕТКЕ Б 
AND 47700001111 
ORA 
STA 
LEA 
m 
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o28F: 


64 


ALRIGHT LIX #00 -OSENESS COUNTER TO NISTANT 
LOOF CMP LIMITS »X %СОМРАКЕ NEARNESS ОҒ GUESS TO 
TABLE OF LIMITS TO SEE HOW MANY 
SLIGHTS TO LIGHT. 
SIGNAL SNEAR З TS RIGGER THAN LIMIT» SO 
360 LIGHT TNHICATOR, 
sL.OOK AT NEXT CLOSEN 
FALL NINE LEV TR 
МП» TRY NEXT LEVEL. 
EYES? WIN! LOAD NUMBER OF BLINKS 
SUSE GUESS AS ТЕМЕ 
SLIGHT LEDS 


A PORTIA 


PORTAIR 
3TONE VALUE 
SMAKE WIN SIGNAL 


*( $COMFLEMENT FORTS 
A PORTIA 
FORTIK 
ЕС GUESS $ RLINKS/TONES DONE? 
z WOW PNO? DO AGAIN 
START YES? START гы GAME: 
“LEVEL 
aC E ; T 1 LET IS LIT. 
#0 $CLEAR HIGH LER PORT 
PORTAE 


SIGNAL 


SONE GU USETI 
$80ME 1. , GET NEXT. 
SLOW TONE SIGNALS LOSE 


> START 5МЕМ GAME. 


y 

$ROUTINE TO MAKE РАТТЕКМ OF LIT LEDS BY SHIFTING А 
STRING OF ONES TO THE LEFT IN THE ACCUMULATOR UNTIL 
3 THE FT FOSTTION CORR ONDING TO THE NUMBER IN X 
915 REACHED, 
LITE LIA жо 
SHTFT 


t ACCUMULATOR FOR FATTERN 
OW RIT HIGH. 
1 ^ IT IN 
SONE RIT TONE... 
$ LOOF TF NOT TONE. 
$8FRETURN 


$ 
STONE GENERATION ROUNTINE. 


D 
TONE STA FREQ 
LDA #900 
LEX THOR 
FL2 LEY 
Fh 
ECC 
ENE 
EOR 
STA 
DEX 
BNE FL? 
RTS 


$ 
ТАКШЕ OF LIMITS FOR CLOSENESS LEVELS. 


$ 


Fig. 4.2: Hexguess Program (Continued) 


HEXGUESS 


св LIMITS .ВҮТЕ 20071281649 3291698947201 
80 
40 
20 
10 
og 
04 
02 
01 


SYMROL TABLE: 
GETREY 0100 ] Ч A004 IRIA A003 
DURAB A002 “С А 4001 РОКТІН 8000 
DOR SE ACO? “С {ТЗВ асоо GUES 0000 
GUESS3 0001 0002 4 
NUMRER 0004 о?он 
ALRIGHT қ 0243 
WOW EA 
LITE 
F1.2 


SHIFT i 
Fld 1.1 E озап 


Fig. 4.2: Hexguess Program (Continued) 


The program will generate a random number which must be guessed 
by the player. A reasonably random number is obtained here by 
reading the value of timer! of VIA #1. It is then stored in memory ad- 
dress NUMBER: 

LDA TIMER Low latch of timer 1 
STA NUMBER 


A random number generator is not required because requests for ran- 
dom numbers occur at random time intervals, unlike the situation in 
most of the other games that will be described. An important observa- 
tion on the use of TICL of a 6522 VIA is that it is often called a 
«Таксһ” but it is a *'counter"" when performing a read operation! Its 
contents are not frozen during a read as they would be with a latch. 
They are continuously decremented. When they decrement to 0, the 
counter is reloaded from the ‘‘real’’ latch. 

Note that in Figure 4.3 T1L-L is shown twice — at addresses 04 and 
06. This is a possible source of confusion and should be clearly 
understood. Location 4 corresponds to the counter; location 6 cor- 
responds to the latch. Location 4 is read here. 

We are ready to go. A high-pitched tone is generated to signal the 
player that a guess may be entered. The note duration is stored at 
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A 
1/0 data, port A І A 5 
E | Yo 
Used for control-affects handshake 
PRESERVE AT "GUESS" SHIFT BY 4 


dgio EEUU. um | 


Counter-low 


Counter-high 


Timer 1 
Latch-low 
Latch-high 
Latch-low 
Counter-low Timer 2 
Counter-high 
Shift register І, 
Auxiliary ; FINAL 2 DIGIT GUESS 
Function 
Peripheral cantrel 
Fig. 4.4: Collecting the Player's Guess 
Flags i 
nterrupt 
hable Control 
Y JSR GETKEY 
Output register A ASL A 
(does not affect handshake) ASL A 
ASL A 
Fig. 4.3: 6522 VIA Memory Map ASL A 
STA GUESS 
JSR GETKEY 


memory location DUR while the note frequency is set by the contents 
of the accumulator: 


Once the second character has been transferred into the accumulator, 
the previous character, which had been saved in memory location 


GUESS, is retrieved and OR'ed back into the accumulator: 
GETGES LDA #$20 High pitch 


JSR TONE AND #%00001111 


ORA GUESS 
Two key strokes must be accumulated for each guess. The GETKEY 


subroutine is used to obtain the number of the key being pressed, 
which is then stored in the accumulator. Once the first character has 
been obtained, it is shifted left by four positions into the high nibble 
position, and the next character is obtained. (See Figure 4.4.) 


It is stored back at memory location GUESS: 


STA GUESS 
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Now that the guess has been obtained, it must be compared against the 
random number stored by the computer at memory location 
NUMBER. A subtraction is performed: 


LDA NUMBER 
SEC 
SBC GUESS 


Note that if the difference is negative, it must be complemented: 


BCS ALRIGHT Positive? 
БОК #%11111111 Itis negative: complement 
SEC Make it two’s complement 
ADC #00 Add one 


Once the ‘‘distance’’ from the guess to the actual number has been 
computed, the ‘‘closeness-counter’’ must be set to a value between 1 
and 9 (only nine LEDs are used). This is done by a loop which com- 
pares the absolute ‘‘distance’’ of the guess from the correct number to 
a bracket value in the LIMITS table. The number of the appropriate 
bracket value becomes the value assigned to the proximity or closeness 
of the guessed number to the secret number. Index register X is initial- 
ly set to 0, and the indexed addressing mode is used to retrieve bracket 
values. Comparisons are performed as long as the ‘‘distance’’ is less 
than the bracket value, or until X exceeds 9, i.e., until the highest table 
value is looked up. 


ALRIGHT LDX 400 Jo 
LOOP CMP LIMITS,X . Lookup limit value 
BCS SIGNAL 
INX Closeness is less 
CPX #9 Keep trying 10 times 
BNE LOOP 


At this point, unless a branch has occurred to SIGNAL, the distance 
between the guess and the actual number is 0: it is a win. This is sig- 
naled by blinking the LEDs and by generating a special win tone: 


WIN LDA #11 
STA GUESS 
LDA #FF 


Scratch storage 
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STA PORTIA 
STA PORTIB 

WOW LDA #50 Tone pitch 
JSR TONE Generate tone 


The blinking is generated by complementing the LEDs repeatedly: 


LDA #$FF 

EOR PORTIA 
STA PORTIA 
STA PORTIB 


Complement ports 


The loop is executed again: 


DEC GUESS 
BNE WOW 


Finally, when the loop index (GUESS) reaches zero, a branch occurs 
back to the beginning of the main program: START: 


BEQ START 


If, however, the current guess is not correct, a branch to SIGNAL 
occurs during bracket comparison, with the contents of the X register 
being the proximity value: i.e., the number of LEDs to light. Depend- 
ing on the closeness of the guess to the secret number, LEDs #1 to #9 
will be turned on: 


SIGNAL INX Increment closeness level 
LDA #0 Clear high LED port 
STA PORTIB 
JSR LITE Get LED pattern 
STA PORTIA 
BCC CC If carry set, PBO = 1 
LDA #01 
STA PORTIB 


The number of LEDs to turn on is in X. It must be converted into the 
appropriate pattern to put on the output port. This is done by the 
LITE subroutine, described below. 

If LED #9 is to be turned on, the carry bit is set by LITE. An ex- 
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plicit test of the carry for this case is done above (the pattern 01 is then 
sent to PORTIB). The number of the current guess is decremented 
next. If it is 0, the player has lost: the lose signal is generated and a 


7 0 C 
A Ё 00000000 ud JUST BEFORE 1st ROTATION 
0 
7 0 С 
А Е 0000000.0 ! p A BEFORE 2nd ROTATION 
0 
7 0 C 
A E 000000 т Е i BEFORE 3rd ROTATION 
0 
7 0 С 
0 
7 0 С 


Fig. 4.5: Obtaining the LED pattern for 8 LED's 
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new game is started; otherwise, the next guess is obtained: 


CC DEC GUESS? 
BNE GETGES Any guesses left? 
LDA #$BE Low tone 
JSR TONE 
JMP START New game 


The Subroutines 


LITE Subroutine 


The LITE subroutine will generate the pattern required to light up 
LEDs #1 to #8, depending on the number contained in register X. The 
required “1” bits are merely shifted right in the accumulator as 
register X is being decremented. An example is given in Figure 4.5. 


Upon exit from the subroutine, the accumulator contains the cor- 
rect pattern required to light up the specified LEDs. If LED #9 is in- 
cluded, the pattern would consist of all ones, and the carry bit would 
be set: 


LITE LDA #0 
SHIFT SEC Starting ‘‘1”’ 
ROLA Rotate the “17” to position 
DEX Done? 
BNE SHIFT 
RTS 


TONE Subroutine 


The TONE subroutine will generate a tone for a duration specified 
by a constant in memory location DUR, at the frequency specified by 
the contents of the accumulator. Index register Y is used as the inner 
loop counter. The tone is generated, as usual, by turning the speaker 
connected to PORT3B on and off successively during the appropriate 
period of time: 


TONE STA FREQ 
LDA #$00 
LDX DUR 
FL2 LDY FREQ 
FLI DEY 
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CLC 

BCC .+2 
BNE FLI1 
EOR #$FF 
STA PORT3B 
DEX 

BNE 

RTS 


SUMMARY 


This time, the program used the timer’s latch (i.e., a hardware register) 
rather than a software routine as a random number generator. A simple 
*LITE" routine was used to display a value, and the usual TONE 
routine was used to generate a sound. 


EXERCISES 


Exercise 4-1: Improve the Hexguess program by adding the following 
feature to it. At the end of each game, if the player has lost, the pro- 
gram will display [the number which the player should have guessed] 
for approximately 3 seconds, before starting a new game. 


Exercise 4-2: What would happen if the SEC at location 290 hex- 
adecimal were left out? 


Exercise 4-3: What are the advantages and disadvantages of using the 
timer's value to generate a random number? What about the suc- 


cessive numbers? Will they be related? Identical? 


Exercise 4-4: How many times does the above program blink the lights 
when it signals a win? 


Exercise 4-5: Examine the WIN routine (line 24D). Will the win tone 
be sounded once or several times? 


Exercise 4-6: What is the purpose of the two instructions at addresses 
29F and 2A0? (Hint: read Chapter 2.) 


Exercise 4-7: Should the program start the timer? 


Exercise 4-8: /5 the number of LEDs lit in response to a guess linearly 
related to the closeness of a guess? 
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THE RULES 


The object of the game is to light up a perfect square on the board, 
i.e., to light LEDs 1, 2, 3, 6, 9, 8, 7, and 4 but not LED #5 in the 
center. 

The game is started with a random pattern. The player may modify 
the LED pattern on the board through the use of the keyboard, since 
each of the keys complements a group of LEDs. For example, each of 
the keys corresponding to the corner LED positions (key numbers: 1, 3, 
9, and 7) complements the pattern of the square to which it is attached. 
Key £1 will complement the pattern formed by LEDs 1, 2, 4, 5. 
Assuming that LEDs 1, 2, and 4 are lit, pressing key £1 will result in 
the following pattern: 1-off, 2-off, 4-off, 5-on. 


e @ O O 
e o o O 
0:50: © O O 2 


The pattern formed by LEDs 1, 2, 4, and 5 has been complemented 
and only LED £5 is lit after pressing key #1. Pressing key #1 again will 
result in: 1, 2, and 4-on with 5-off. Pressing a key twice results in two 
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successive complementations, i.e., it cancels out the first action. 
Similarly, key 49 complements the lower right-hand square formed 
by LEDs 5, 6, 8, and 9. 
Key #3 complements the pattern formed by LEDs 2, 3, 5, and 6. 
Key #7 complements the pattern formed by LEDs 4, 5, 7, and 8. 
The “еве keys” corresponding to LEDs 2, 4, 6, and 8 complement 
the pattern formed by the three LEDs of the outer edge of which they 
are a part. For example, pressing key #2 will complement the pattern 
for LEDs 1, 2, and 3. Assume an initial pattern with LEDs 1, 2, and 3 
lit. Pressing key #2 will result in obtaining the complemented pattern, 
i.e., turning off all three LEDs. Similarly, assume an initial pattern 
on the left vertical edge where LEDs 4 and 7 are lit. 


Finally, pressing key #5 (the center LED position) will result in com- 
lementing the pattern formed by LEDs 2, 4, 5, 6, and 8. For exam- 
le, assume the following initial pattern where only LEDs 6 and 8 are 


ООо 
CX 0 . 


O @ O 
ооо 


e O o 
e O O 


Pressing key #5 will result in lighting up LEDs 2, 4, and 5: 


O e o 
e-e o 
ооо 


Pressing key #4 will result in a pattern where LED #1 is lit and LEDs 4 
and 7 are turned off. 


@ O o 
us NEGO 
O O OỌ 


KEY 4 HAS BEEN PRESSED 


The winning combination in which all LEDs on the edge of the square 
are lit is obtained by pressing the appropriate sequence of keys. 


еее 
© O e 
o © o 


Likewise, key 48 will complement the pattern formed by LEDs 7, 8, 
and 9, and key #6 will complement the pattern formed by LEDs 3, 6, 
and 9. 
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The mathematical proof that it is always possible to achieve a ‘‘win’’ 
is left as an exercise for the reader. The program confirms that the 
player has achieved the winning pattern by flashing the LEDs on and 
off. 

Key “0” must be used to start a new game. A new random pattern 
of lit LEDs will be displayed on the board. The other keys are ignored. 


e o e 
e © O 


A TYPICAL GAME 


Here is a typical sequence: 
The initial pattern is: 1-3-4-6-9. 


e O e 
e o e 
O O б 


Next move: press key #3. 
The resulting pattern is: 3-4-5-7-8. 


O -- 
Ф 


e 9 O 


Move: press key #8. 
The resulting pattern is: 1-3-4-6-7-8. 


Next move: press key #2. 
The resulting pattern is 1-2-4-5-7-8. 


e o e 
e o e 


Next move: press key #2. 
The resulting pattern is: 2-4-6-7-8. 
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Next move: press key #6. 
The resulting pattern is 1-2-3-4-5-6-7-8-9. 


ее im 


Note that this is a ‘‘classic’’ pattern in which all LEDs on the board 
are lit. It is not a winning situation, as LED £5 should be off. Let us 
proceed. 

Next move: the end of this game is left to the mathematical talent of 
the reader. The main purpose was to demonstrate the effect of the 
various moves. 

Hint: a possible winning sequence is 2-4-6-8-5! 

General advice: in order to win this game, try to arrive quickly at a 
symmetrical pattern on the board. Once a symmetrical pattern is ob- 
tained, it becomes a reasonably simple matter to obtain the perfect 
square. Generally speaking, a symmetrical pattern is obtained by hit- 
ting the keys corresponding to the LEDs which are off on the board 
but which should be ‘‘on’’ to complete the pattern. 


THE ALGORITHM 


A pattern is generated on the board using random numbers. The 
key corresponding to the player's move is then identified, and the ap- 
propriate group of LEDs on the board is complemented. 

A table must be used to specify the LEDs forming a group for each 
key. 

The new pattern is tested against a perfect square. If one exists, the 
player wins. Otherwise, the process begins anew. 

The detailed flowchart is shown in Figure 5.1. 
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START 


GET RANDOM 
NUMBER FROM 
TIMER 


STORE IN PORT A 


GET RANDOM 
NUMBER FROM 
TIMER 


STORE IN PORT B 


GET KEY NUMBER 


KEY NUMBER 
= 0? 


КЕҮ МОМВЕК 
> 
NO 


MAGIC SQUARE 


TEMP = TABLE [(KEY 
NUMBER) X 2] 


PORT A = [(PORT A) 
EOR (ТЕМР)) 


TEMP = TABLE 
[(KEY NUMBER) 
X241) 


PORT В = [(РОВТ B) 
EOR (TEMP)) 


NO PATTERN IN 


PORTS — WIN? 


YES 


TEMP = 14 


PORT A = (PORTA) 
EOR $FF 


PORT B = (PORT B) 
EOR $FF 


TEMP = TEMP ~ 1 


Е C» 


Fig. 5.1: MagicSquare Flowchart 
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THE PROGRAM 


4 ZYEQART! ARE E 
WITH ONE A 
SIT CHANG 
Data Structures THE. OBJECT oF 
iL Ens 
$ THE 
KEY £0 CAN. "BE "USET aT I 
+ THE GAME WITH A NEW PATTERN, 
% 


GETREY | »$100 


The main problem here is to devise an efficient way to complement 
the correct LED pattern whenever a key is pressed. The complementa- 
tion itself may be performed by an Exclusive-OR instruction. In this 
case, the pattern used with the EOR instruction should contain a “417 


. ... . . " =%4004 
іп each LED position which is to be complemented, and ‘‘0’’s FORTI — $6001 
. . . . . FORTS шФАО0О0 
elsewhere. The solution is quite simple: a nine-entry table, called TEMP =$0000 
1 Ч ПКА =hAOOS 2 ІС 
TABLE, is used. Each table entry corresponds to a key and has 16 bits m 21408 ИЕ FOR PORTA 


of which only nine are used inasmuch as only nine LEDs are used. 9200 


Each of the nine bits contains a “1” in the appropriate position, in- 


P COMMENTS: THIS 
RANDOM NUME 


dicating the LED which will be affected by the key. Я RANDON NUMBER A FOR ISDN AE 
For example, we have seen that key number 1 will result in com- % DUE TO ITS RE ТҮ, ІТ WOULD мот 
. . а 7 Г" 
plementing LEDs 1, 2, 4, and 5. The corresponding table entry is $ STORAGE OF TH HAT 
therefore: 0, 0, 0, 1, 1, 0, 1, 1, where bits 1, 2, 4, and 5 (starting the ; OUTPUT LIN EXCESSIVE Nar THE LINES WOULD 
numbering at 1, as with the keys) have been set to '*1." Or, more ; T THE PROGRAM FROM WORKING CORRECTLY. 
. . . » 
precisely, using a 16-bit pattern: FF LIA ФФЕЕ ;SET UP PORTS FOR OUTPUT 
0,0,0,0,0,0,0,0,0,0,0,1, 1,0, 1, 1 dic ges PU EE 
The complete table appears below in Figure 5.2. ) 2 ao START СЕТ 157 RANDOM NUMBER 
104 AO ў. АМП SECOND, 
01 ЎМАВК QUT ROTTOM ROW 1 ЕИ 
00 AO 
00 01 КЕҮ 
00 18 IT 0? 
1 00011011 ER WITH NEW ROARI 
oA E 10% 
2 00000111 F5 SPL KE $4OIFOKE і $0 BET ANOTHER 
; 
3 00110110 TI TO FIND IN 
4 01001001 PT 8 
5 10111010 PDECREMENT а FOR TARLE ACCESS 
01 
6 00100100 АЖ?» SINCE EACH ENTRY IN 
7 11011000 
TAX 
8 11000000 п 01 AO LDA PORTI 36 NI с 
6H 02 EDR TARLEyX — $EOR PORT CONTENTS W/PAT 
9 10110000 П 01 AO STA FORTI PRESTO Th | 
п 00 AO LIA FORT? 10 SAME WITH PORT 
6C 02 EOR TABLE41»X — $...USING NEXT TABLE ENTRY, 
Fig. 5.2: Complementation Table 01 АМП #01 $MASK OUT KOTTOM ROW LETS 
00 ^0 STA FORT2 Pe AND RESTORE. 


% 
THIS SECTION CHECKS FOR WINNING PATTERN IN LETS 


$ 


Program Implementation 


SHEET, BIT 0 OF PORT 1 INTO CARRY. 


TERN GET NEXT MOVE 


O23B: 90 П9 
ОЗЗП: АП 01 AO 
0240: C9 EF 
0242: ПО I2 


A random pattern of LEDs must be lit on the board at the beginning 
of the game. This is done, as in the previous chapter, by reading the 
value of the VIA £1 timer. If a timer were not available, a random 


number-generating routine could be substituted. Fig. 5.3: Magic Square Program 
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, 
SWIN BLINK LEDS EVERY 1/2 SEC» 4 TIMES 
$ 


> The data direction registers for Ports А and B of the VIA are con- 
"figured for output to drive the LEDs: 


02441 LIA #14 | 
02461 85 STA TEMP $LOAD NUMBER OF RLINKS | 
0248! А2 2 BLINK LIX #620 SBELAY CONSTANT FOR .08 SEC LDA #$FF 
02461 F DELAY — LnY #$FF SOUTER LOOP OF VARIABLE DELAY 
$ROUTINE» WHOSE DELAY TIME STA DDRA 
#15 2556 Ж (CONTENTS OF X ON ENTER 

024C: E THY NOF $10 MICROSEC LODE V STA. DDRB 
onan D BNE .42 
024F! BE TEY . : | 
0250: T: ВМЕ DLY The “random” numbers are then obtained by reading the value of l 
02521 DEX j : | 
0253: ПО FS RNE DELAY timer 1 of the VIA and are used to provide a random pattern for the | 

s5! АП "OR СЕП SORTS n c ^ ENT THE . . . i 
conor DOE Tibull. GET PORTS AND COMPLEMENT THEM LEDs. (Two numbers provide 16 bits, of which 9 are kept.) | 
О25А: Bl 01 STA FORTI | 
0250: АГ A LIA PORT2 
5. 1 EOR teto START LDA TICL Get 1st number 

2623: 1 A STA FORT2 4 
02651 Cé ПЕС TEMP $COUNT DOWN NUMBER OF BLINKS STA PORTI Use it 
02671 TO DF BNE BLINK $TIO AGAIN IF NOT DONE 
02691 AE BEQ KEY СЕТ NEXT MOVE LDA TICL Get 2nd number 

STARLE OF CODES USED TO COMPLEMENT LENS AND #01 Keep only position 0 
А ЅТА РОВТ2 Useit 


Н 
0268: 1k TABLE «ВҮТ ZOOOLLOL Ls 200000000 
0260: 

o2e6n: .БҮТ 200000111»200000000 


An explanation of the use of ТІСІ, has been presented in the 
previous chapter. The program then monitors the keyboard for the 
key stroke of the player. It will accept only inputs ‘‘0’’ through 59” 
and will reject all others: 


«ВҮТ 700110110»Хх00000000 
«ВҮТ 701001001»%00000000 


«ВҮТ 710111010»%00000000 


09785: 2 BYT Х00100100»%00000001 
0926: 
02771 ТЕ HYT Z11011000500000000 KEY JSR GETKEY 
0278: 9 
«ВҮТ 711000000»Х00000001 СМР #0 Is key 0? 
T X1011000€ ¢ 0001 BEQ START 
«ВҮТ X1011 20» 40000 1 
CMP #10 
BPL KEY If key = 10 get another 


0100 TICL A004 PORTE 
2 A000 ТЕМР 0000 DERA 
DERE A002 START 0208 KEY 
BLINK 0248 NELAY 0244 nt. Y 
TARLE 026R 


If the player has pressed key ‘‘0,’’ the program is restarted with a new 
LED display. If it is a value between ‘‘1’’ and ‘‘9’’ that is pressed, the 
appropriate change must be performed on the LED pattern. The key 
number will be used as an index to the table of complementation | 
codes. Since the keys аге labeled 1 through 9, the key number must | 
first be decremented by 1 in order to be used as an index. Since the | 
table contains double-byte entries, the index number must also be 

multiplied by 2. This is performed by the following three instructions: 


Fig. 5.3: Magic Square Program (Continued) 


SEC 
SBC #1 Subtract 1 
ASL A Multiply by 2 
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Remember that a shift left is equivalent to a multiplication by 2 in the 
binary system. The resulting value is used as an index and stored in in- 
dex register X: 


TAX 


. The LED pattern is stored in the Port A data registers. It will be com- 
plemented by executing an EOR instruction on Port 1, then repeating 
the process for Port 2: 


BLINK 
DELAY 


LDA PORTI 

EOR TABLE,X 
STA PORTI 

LDA PORT2 

БОК TABLE + 1,X 
AND #01 

STA PORT2 


Complement Porti 
DLY 


Same for Port2 


Mask out unused bits 


Note that assembly-time arithmetic is used to specify the second byte 
in the table: 


EOR TABLE + 1,X 


Once the pattern has been complemented, the program checks for a 
winning pattern. To do so, the contents of Port 2 and Port 1 must be 
matched against the correct LED pattern. For Port 2, this is “0, 0, 0, 
0, 0, 0, 0, 1.” For Port 1, this is **1, 1, 1, 0, 1, 1, 1, 1." Bit O of Port 2 
happens presently to be contained in the accumulator and can be 


tested immediately after a right shift: SUMMARY 


LSR A Shift bit 0 of Port 2 
BCC KEY 


The contents of Port 1 must be explicitly compared to the appropriate 
pattern: 


LDA PORTI 
CMP 50911101111 
BNEKEY 
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LDA #14 
STA TEMP 
LDX #$20 
LDY #$FF 


NOP 

BNE .+2 
DEY 

BNE DLY 
DEX 

BNE DELAY 
LDA PORTI 


EOR #$FF 
STA PORTI 
LDA PORT2 
EOR #1 
STA PORT2 
DEC TEMP 
BNE BLINK 
BEQ KEY 


MAGIC SQUARE 


To confirm the win, LEDs are now blinked on the board. TEMP is 
sed as a counter variable; X is used to set the fixed delay duration. Y 
used as a counter for the innermost loop. Each port is com- 
lemented after the delay has elapsed. 


Load number of blinks 
Delay constant for .08 sec 
Outer loop of variable 
delay routine, whose delay 
time is 2556 x (Contents 
of X on entry) 10 us loop 


Get ports and complement 
them 


Count down number of blinks 
Do again if not done 
Get next key 


This game of skill required a special table to perform the various 
complementations. The timer is used directly to provide a pseudo- 
random number, rather than a program. The LED pattern is stored 
directly in the I/O chip’s registers. 


Exercise 5-1: Rewrite the end of the program using a delay subroutine. 


Exercise 5-2: Will the starting pattern be reasonably random? 
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Exercise 5-3: Provide sound effects. 


Exercise 5-4: Allow the use of key “A” to perform a different change 
Such as a total complementation. : 


Exercise 5-5 (more difficult): Write a program which allows the com- 
puter to play and win. 


Exercise 5-6: Add to the previous exercise the following feature: 
record the number of moves played by the computer, then play against 
the computer. You must win in fewer moves. You may specify an 
identical starting pattern for yourself and the computer. In this case, 
you should start, then let the computer *'show you. ” If the computer 
requires more moves than you do, you are either an excellent player, a THE RULES 
lucky player, or you are a poor programmer. Perhaps you are using E 
the wrong algorithm! 


SPINNER 


A light spins around the square formed by LEDs 1, 2, 3, 6, 9, 8, 7, 
and 4, in a counterclockwise fashion. 


O e o 
» O O 
ооо 


The object of the game is to stop the light by hitting the key cor- 
responding to the LED at the exact time that the LED lights up. Every 
time that the spinning light is stopped successfully, it will start spin- 
ning at a faster rate. Every time that the player fails to stop the LED 
within 32 spins, the light will stop briefly on LED £4, then resume 
spinning at a slower pace. The expert player will be able to make the 
light spin faster and faster, until the maximum speed is reached. At 
this point, all the LEDs on the Games Board (LEDs 1 through 15) 
light up simultaneously. It is a win, and a new game is started. 

Each win is indicated to the player by a hesitation of the light on the 
LED corresponding to the key pressed. When a complete game is won, 
all LEDs on the Games Board will be lit. 
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This game can also be used to sharpen a player's reflexes, or to test 
his or her reaction time. In some cases, a player's reaction may be too 
slow to catch the rotating LED even at its slowest speed. In such a 
case, the player may be authorized to press two, or even three, con- 
secutive keys at once. This extends the player's response time. For ex- 
ample, with this program, if the player would press keys 7, 8, and 9 
simultaneously, the light would stop if it was at any one of those posi- 
tions (7, 8, or 9). 


THE ALGORITHM 


The flowchart is presented in Figure 6.1. The game may operate at 
eight levels of difficulty, corresponding to the successive speeds of the 
“blip” traveling with increased rapidity around the LED square. An 
8-bit counter register is used for two functions simultaneously. (See 
Figure 6.2.) The lower 3 bits of this register are used as the ‘‘blip- 
counter'' and point to the current position of the light on the LED 
square. Three bits will select one of eight LEDs. The left-most 5 bits of 
this register are used as a ‘‘loop-counter’’ to indicate how many times 
the blip traverses the loop. Five bits allow up to 32 repetitions. LEDs 
are lit in succession by incrementing this counter. Whenever the blip- 
counter goes from “8” to ‘‘0,’’ a carry will propagate into the loop- 
counter, incrementing it automatically. Allocating the 8 bits of 
register Y to two different conceptual counters facilitates program- 
ming. Another convention could be used. 

Every time that an LED is lit, the keyboard is scanned to determine 
whether the corresponding key has been pressed. Note that if the key 
was pressed prior to the LED being lit, it will be ignored. This is ac- 
complished with an ‘‘invalid flag.” Thus, the algorithm checks to see 
whether or not a key was initially depressed and then ignores any fur- 
ther closures if it was. A delay constant is obtained by multiplying the 
difficulty level by four. Then, during the delay while the LED is lit, a 
new check is performed for a key closure if no key had been pressed 
at the beginning of this routine. If a key had been pressed at the begin- 
ning it will be treated as a miss, and the program will not check again 
to see if the key was pressed as the “іпуаПа flag" will have been set. 

Every time the correct key is pressed during the delay while the LED 
is on (left branch of the flowchart in the middle section of Figure 
6.1), the value of the difficulty level is decremented (a lower difficulty 
number results in a higher rotation speed). For every miss on the part 


SPINNER 


of the player, the difficulty value is incremented up to 15, resulting in 
a slower spin of the light. Once a difficulty level of 0 has been reached, 
if a hit is recorded, all LEDs on the board will light to acknowledge 
the situation. 


THE PROGRAM 


Data Structures 


The program uses two tables. The KYTBL table stores the key 
numbers corresponding to the circular LED sequence: 1,2,3,6,9,8,7,4. 
It is located at memory addresses OB through 12. See the program 
listing in Figure 6.3. 

The second table, LTABLE, contains the required bit patterns 
which must be sent to the VIA's port to illuminate the LEDs in se- 
quence. For example, to illuminate LED #1, bit pattern “000000001, 
or 01 hexadecimal, must be sent. For LED #2, the bit pattern 
“00000010” must be sent, or 02 hexadecimal. Similarly, for the other 
LEDs, the required pattern is: 04, 20, 00, 80, 40; OB in hexadecimal. 

Note that there is an exception for LED #9. The corresponding pat- 
tern is “0” for Port 1, and bit 0 of Port 2 must also be turned on. We 
will need to check for this special situation later on. 


Program Implementation 


Three variables are stored in memory page 0: 


DURAT Is the delay between two successive 
LED illuminations 

DIFCLT Is the ''difficulty level" (reversed) 

DNTST Is a flag used to detect an illegal 


key closure when scanning the keys 


As usual, the program initializes the three required data direction 
registers: DDR1 on both Port A and Port B for the LEDs, and 
DDR3B for the keyboard: 


START LDA #$FF 
STA DDRIA 
STA DDRIB 
STA DDR3B 
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START 


COUNTER = 0 


DIFFICULTY = 8 


USE BITS 0—2 OF 
COUNTER TO LOOK 
UP LED PATTERN IN 

TABLE, THEN DISPLAY 
PATTERN 


OUTPUT NUMBER OF 
KEY TO LOOK FOR 
(BITS O~2 OF 
COUNTER) TO 
KEYBOARD 
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SET INVALID FLAG 
DURAT = 128 


DELAY CONST = 


4 X DIFFICULTY 
DELAY ACCORDING 
TO DELAY CONST 


Fig. 6.1: Spinner Flowchart 


NO 


CLEAR INVALID FLAG 


INVALID 
FLAG SET? 


DURAT = DURAT — 1 


DIFFICULTY — 
DIFFICULTY — 1 


YES (MISS) 


INCREMENT 
DIFFICULTY, MAKING 
SURE IT DOES NOT 
EXCEED 15 


Fig. 6.1: Spinner Flowchart (Continued) 


SPINNER 
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LOOP BLIP 
COUNTER COUNTER 


Fig. 6.2: Dual Counter 
The difficulty level is set to 8, an average value: 


LDA #8 
STA DFCLT 


The keystrobe port is conditioned for input: 
STA DDR3A 


The Y register, to be used as our generalized loop-plus-blip-counter, is 
set to‘‘0”’: 


NWGME LDY #0 
The key-down indicator is also set to 50”: 


LOOP LDA #0 
STA DNTST 


LED #9 is cleared: 
STA PORTIB 


The lower 3 bits of the counter are extracted. They contain the blip- 
counter and are used as an index into the LED pattern table: 


TYA Y contains counter 
AND #$07 Extract lower 3 bits 
TAX Use as index 


The pattern is obtained from LTABL, using an indexed addressing 
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* Loc 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0002 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0004 
0005 
9006 
0007 
0008 
0009 
000A 
000В 
000R 
0008 
000B 
000B 
000€ 
ooon 
000Е 
000Ғ 
0010 
0011 
0012 
0013 
0013 
0013 
0013 
0200 
0200 
0202 
0205 
0208 
020B 
0200 
020F 
0212 
0214 
0216 
0218 
021В 
021C 
021Е 
021Ғ 


CORE 


AQ 
^0 
ас 


ас 


^0 


SPINNER 
LINE 
; “ӨРІММЕК” 
ІРКОӨКАМ TO TEST REACTION TIME ОҒ PLAYER. 
;BLIP ОҒ LIGHT SFINS AROUND EDGE 
SOF 3X3 LED MATRIX» ANE USER MUST PRESS 
$CORRESPONDING KEY. IF» AFTER A NUMBER OF 
sSPINS» CORRECT KEY HAS NOT BEEN PRESSED? 
sBLIP SPINS SLOWER, IF CORRECT KEY HAS BEEN 
3PRESSED» BLIP SPINS FASTER. ALL 
sLEDS LIGHT WHEN SUCCESSFUL KEYPFRESS 
OCCURS ON MAXIMUM SPEED. 
, 
31/0: 
$ 
PORTIA = $A001 SLEDS 1-8 
PORTIB = $6000 3LEDS 8-15 
DORIA = $6003 
DDRiB = $A002 
PORTIA = $ACO1 3KEY STROBE INPUT. 
РОКТЗВ = %АС00 КЕҮ % OUTPUT. 
DDR3Ó = $4CO3 
DDR3B = $4CO2 
$ 2 
VARIABLE STORAGE: 
; 
x = $0 
$ 
DURAT x*-**1 DURATION OF INTER-MOVEMENT DELAY. 
DIFCLT *=x+1 3DIFFICULTY LEVEL, 
DNTST Жж=Жж+і 3SET TO $01 IF KEY [OWN AT START 


ОҒ INTER-MOVEMENT DELAY, 
% 
TABLE OF PATTERNS TO BE SENT TO LER 
$MATRIX AT EACH LOOP COUNT. 


%5ЕТ FOR CLOCKWISE ROTATION STARTING AT LED #1. 


Ж 
LTABLE BYTE %01,%02,%04»%20,%00»%80»%40,%08 


, 
$TABLE OF PATTERNS TO BE SENT TO KEYBOARD 
;TO TEST IF LEDS ARE ON AT EACH LOOF COUNT. 


; 
KYTBL BYTE 1,2,3,6,9»8,7,4 


MAIN FROGRAM 


* = $200 
, 
START LDA #$FF SET I/0 REGISTERS, 
STA DORIA 
STA DERIB 
STA DDR3E 
LIA 48 
STA DIFCLT #SET DIFFICULTY. 
STA DIRIA ISET KEYSTROBE FORT. 
NUGME 10Ү #0 PRESET LOOF/BLIP COUNTER. 
LOOP * LDA #0 
STA DNTST $CLEAR KEYDOWN INDICATOR. 
STA PORT1B 3CLEAR HI LED PORT, 
TYA sUSE LOWER 3 BITS OF MAIN COUNTER 
AND #$07 34S INDEX TO FIND LED PATTERN 
TAX ІМ TABLE OF PATTERNS. 
LDA LTABLE»X СЕТ PATTERN FOR LED TO 


Fig. 6.3: Spinner Program 
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mechanism with register X, and this pattern is output on Port 1A to 


0063 0221 ӚБЕ TURNED ON. N fe қ 

0064 0221 ӘП 01 А0 STA PORTIA $STORE IN LEN PORT. ight up the appropriate LED: 

0065 0224 10 05 BNE CHECK SIF PATTERN <> 0» SKIP. 

0046 0226 A? 01 LIA £1 }PATTERN=0r 50 SET HI HIT. 

0057 0228 Вр 00 АО STA РОКТІВ 

0068 0228 BS OB CHECK LIA KYTBL;X БЕТ KEY4 TO TEST FOR. LDALTABLE,X Get ЕЯ n 

0069 0220 8n 00 AC STA FORTZE $STORE IN KEYPORT. а 

0070 0230 2C 01 AC BIT FORT3A $STROBE HI? STA PORTIA Use it to light up 

0071 0233 30 04 BMI DELAY $IF NOT» SKIF. 

0072 0238 A? 01 INVALI LIA #01 $STOBE НІ: SET KEY DOWN MARKER. = % . . : LR 

0073 0237 85 02 STA DNTST f Ав we indicated in the previous section, an explicit check must be 
0074 0239 09 80 DELAY LIA #$80 БЕТ Ф OF LOOP CYCLES (DELAY LENGTH) ; А А 

0075 0238 85 00 STA DURAT made for the pattern “0,” which requires that bit 0 of Port B be 
0075 O23n А5 01 ші (һа DIFCLT MULTIPLY DIFFICULTY COUNTER : : . 

0077 023Ғ 0А ASL A SBY FOUR TO DETERMINE DELAY turned on. This corresponds to LED #9: 

0078 0240 ОА ASL ^ LENGTH. 

0079 0241 AA TAX 


0080 0242 246 02 DL2 ROL DNTST DELAY ACCORDING TO DIFCLT. 20 
0081 0244 46 02 ROR UNTST BNE CHECK e TED 49 
0082 0246 CA TEX 

0083 0247 DO F9 ENE DL2 $LOOF ‘TIL COUNT = 0 LDA #1 If not, set 

0084 0249 AS 02 (Па DNTST СЕТ KEY DOWN FLAG. 

0085 024B DO 05 ЕМЕ NOTST *IF KEY WAS DOWN AT BEGINNING OF STA РОКТІВ 

0086 0240 $DELAY: DON'T TEST IT. 


0087 0240 2€ 01 AC BIT FORT3A 3CHECK KEY STROBE. . 
0088 0250 10 19 BFL HIT 3KEY HAS CLOSED DURING DELAY: HIT. 


Once the correct LED has been lit, the keyboard must be inspected to 


0089 0252 Có 00 NOTST DEC BURAT $ COUNT DELAY LOOP IIQUN. 

0090 0254 10 E7 BNE DLi $LOOP IF NOT 0. determine whether the player has already pressed the correct key. The 
0091 0256 C8 INY $ INCREMENT MAIN SPIN COUNTER. : 1 
0092 0257 DO RB ENE LOOP FIF 32 LOOPS NOT DONE? DO NEXT LOOP program only checks the key number corresponding to the LED being 


0093 0259 Аб 01 LEX DIFCLT %Ма HITS THIS TIME» MAKE NEXT 
0094 O25B $EASIER. d 
0095 О25В ЕВ INX 


lit: 


0096 025€ BA тха $MAKE SURE DIFFICULTY DOES NOT 

0097 0250 C9 10 CMP #16 ;jEXCEED 15 ; : 
0098 025Ғ DO 02 BNE OK CHECK LDA KYTBL,X X contains correct pointer 
0099 0261 А9 OF LDA #15 

0100 0263 85 01 OK STA DIFCLT STA PORT3B Select d key 

0101 0265 20 80 02 JSR WAIT PPAUSE A ВІТ, i 

0102 0268 4C 12 02 УМЕ. NUGME START NEW ROUND. BIT PORT3A Strobe hi? 

0103 0208 20 во 02 HIT JSR WAIT PAUSE A BIT. i 

0104 026Е Có 01 DEC DIFCLT МАКЕ NEXT GAME HARDER. BMI DELAY If not, skip 

0105 0270 10 А0 BNE NUGME $IF DIFFICULTY NOT 0 (HARDESTO; 

0106 0272 PLAY NEXT GAME. 

0107 0272 А9 FF LIA #$FF iPLAYER HAS MADE IT TO TOP 


If the corresponding key is down (a strobe high on Port 3A is 
detected), the key-down flag, DNTST, is set to 587% 


0108 0274 8i 01 АО STA PORTIA sDIFFICULTY LEVEL, LIGHT ALL LEIS. 
0109 0277 8D 00 А0 STA РОКТІВ 
0110 027A 20 80 02 JSR WAIT #PAUSE A RIT. 


0111 0271 АС 00 02 JMF START 3PLAY ANOTHER GAME. 
0112 0280 ; 
0113 0280 $SUBROUTINE ‘WAIT’ 


INVALD LDA #01 
STA DNTST 


0114 0280 35НОКТ DELAY. 
0115 0280 $ 

0116 0280 AO FF WAIT LDY #$FF 
0117 0282 A2 FF LPL LUX #$FF 


0118 0284 46 00 LP2 ROR DURAT " . 

Mo В ROL DURAT This is an illegal key closure. It will be ignored. A delay to keep the 
2 i T . L 
0121 0284 26 00 ROL DURAT LED lit is implemented by loading a value in memory location 

0122 028C СА TEX P . . 1 

0125 0280 DO FS BNE LP2 DURAT. This location is used as a loop-counter. It will be 
0124 O28F 88 LEY A . 

0125 0290 NO ҒО BNE LP1 decremented later оп and will cause a branch back to location DLI to 
0126 0292 60 RTS 

0127 0293 «ЕМІ! Occur: 


SYMBOL TARLE 


SYMBOL VALUE LDA #$80 
022B DIRIA A003 DDOR1E A002 DIR3A DELAY 
DDR3B ACO2 DELAY 0239  DIFCLT 0001 Ші 0231 STA DURAT 
DL2 0242 DNTST 0002 DURAT 0000 HIT 0226 
INVALD 0235 КҮТЕ 000R LOOF 0214 LF1 0282 
LP2 0284 ТАКЕ 0003 NOTST 0252 NWGME 0212 men . 2221: MIR x 
OK 0263 PORTIA 8001 PORTIE А000  FORTSA аС01 The difficulty counter, DIFCLT, is then multiplied by four. This is ac 
PORT3B асоо START 0200 WAIT 0280 


END OF ASSEMBLY complished by two successive left shifts: 


Fig. 6.3: Spinner Program (Continued) 
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DLI LDA DIFCLT 
ASL A 
ASL A 
TAX 


The result is saved in index register X. It will determine the delay 
length. The lower the ‘‘difficulty-level,’’ the shorter the delay will be. 
The delay loop is then implemented: 


DL2 ROL DNTST 
ROR DNTST 
DEX 
BNE DL2 Loop til count = 0 


The key-down flag, DNTST, is then retrieved from memory and 
tested. If the key was down at the beginning of this routine, the pro- 
gram branches to location NOTST. Otherwise, if a closure is detected, 
a hit is reported and a branch occurs to location HIT: 


LDA DNTST 
BNE NOTST 
BIT PORT3A 
BPL HIT 


Check key strobe 


At NOTST, the external delay loop proceeds: the value of DURAT is 
decremented and a branch back to location DL1 occurs, unless 
DURAT decrements to ‘‘0.’? Whenever the delay decrements to “0” 
without a hit, the main counter (register Y) is incremented by 1. This 
results in advancing the blip-counter (lower three bits of register Y) to 
the next LED. However, if the blip-counter was pointing to LED #4 
(the last one in our sequence), the loop-counter (upper 5 bits of 
register Y) will automatically be incremented by 1 when the blip- 
counter advances. If the value 32 is reached for the loop-counter, the 
value of register Y after incrementation will be “0” (in fact, an 
overflow will have occurred into the carry bit). This condition is tested 
explicitly: 


NOTST DEC DURAT 
BNE р Loop if not 0 
INY Increment counter 
BNE LOOP 32 loops? 
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nce the Y register has overflowed, i.e., 32 loops have been executed, 


he difficulty value is increased, resulting in a slower spin: 


LDX DIFCLT No hits. Make it easier 


INX 


The maximum difficulty level is 15, and this is tested explicitly: 


TXA Only A may be compared 
CMP #16 
BNE OK 
LDA #15 Stay at 15 maximum 
OK STA DIFCLT 


Finally, a brief pause is implemented: 

JSR WAIT 

and a new spin is started: 

JMP NWGME 

In the case of a hit, a pause is also implemented: 
HIT JSR WAIT 


then the game is made harder by decrementing the difficulty count 
(DIFCLT) 


DEC DIFCLT 


The difficulty value is tested for “0” (fastest possible spin). If the “0” 
level has been reached, the player has won the game and all LEDs are 
illuminated: 


BNE NWGME If not 0, play next game 
LDA #$FF It is a win 

STA PORTIA Light up 

STA PORTIB 


The usual pause is implemented, and a new game is started: 
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JSR WAIT 
JMP START 


The pause is achieved with the usual delay subroutine called “WAIT.” 
Itisa classic, two-level nested loop delay subroutine, with additional 
do-nothing instructions inserted at address 0286 to make it last longer: 


WAIT LDY #$FF 
LP1 LDX #$FF 
LP2 ROR DURAT 
ROL DURAT 
ROR DURAT 
ROL DURAT 
DEX 
BNE LP2 
DEY 
BNE ІРІ 
RTS 


SUMMARY 


This program implemented a game of skill. Multiple levels of diffi- 
culty were provided in order to challenge the player. Since human 
reaction time is slow, all delays were implemented as delay loops. For 
efficiency, a special double-counter was implemented in a single register: 
the blip counter—loop counter. 


EXERCISES 


Exercise 6-1: There are several ways to “cheat” with this program. 
Any given key can be vibrated rapidly. Also, it is possible to press any 
number of keys simultaneously, thereby massively increasing the 
odds. Modify the above program to prevent these two possibilities. 


Exercise 6-2: Change the rotation speed of the light around the LEDs 
by modifying the appropriate memory location. (Hint: this memory 
location has a name indicated at the beginning of the program.) 


Exercise 6-3: Add sound effects. 
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SLOT MACHINE 


THE RULES 


This program simulates a Las Vegas-type slot machine. The rota- 
tion of the wheels on a slot machine is simulated by three vertical rows 
of lights on LED columns 1-4-7, 2-5-8, and 3-6-9. The lights ‘‘rotate’’ 
around these three columns, and eventually stop. (See Figure 7.1.) The 
final light combination representing the player’s score is formed by 
LEDs 4-5-6, i.e., the middle horizontal row. 

At the beginning of each game, the player is given eight points. The 
player’s score is displayed by the corresponding LED on the Games 
Board. At the start of each game, LED 48 is lit, indicating this initial 
score of 8. 

The player starts the slot machine by pressing any key. The lights 
start spinning on the three vertical rows of LEDs. Once they stop, the 
combination of lights in LEDs 4, 5, and 6 determines the new score. If 
either zero or one LED is lit in this middle row, it is a lose situation, 
and the player loses one point. If two LEDs are lit in the middle row, 
the player’s score is increased by one point. If three LEDs are lit in the 
middle row, three points are added to the player’s score. 

Whenever a total score of zero is obtained, the player has lost the 
game. The player wins the game when his or her score reaches 16 
points. Everything that happens while the game is being played pro- 
duces tones from the machine. While the LEDs are spinning, the 
speaker crackles, reinforcing the feeling of motion. Whenever the 
lights stop rotating, a tone sounds in the speaker, at a high pitch if it is 
a win situation, or at a low pitch if it is a lose situation. In particular, 
after a player takes his or her turn, if there are three lights in the mid- 
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SCORE 


WHEEL 1 WHEEL 2 WHEEL 3 


Fig. 7.1: The Slot Machine 


dle row (a win situation), the speaker will go beep-beep-beep in a high 
pitch, to draw attention to the fact that the score is being incremented 
by three points. Whenever the maximum of 16 points is reached, the 
player has obtained a ‘‘jackpot.’’ At this point all the LEDs on the 
board will light up simultaneously, and a siren sound will be generated 
(in ascending tones). Conversely, whenever a null score is reached, a 
siren will be sounded in descending tones. 

Note that, unlike the Las Vegas model, this machine will let you win 
frequently! Good luck. However, as you know, it is not as much a 
matter of luck as it is a matter of programming (as in Las Vegas ma- 
chines). You will find that both the scoring and the probabilities can 
be easily modified through programming. 


A TYPICAL GAME 


The Games Board initially displays a lit LED in position 8, in- 
dicating a starting score of 8. At this point the player should select and 
press a key. For this example let's press key 0. The lights start spin- 
ning. At the end of this spin, LEDs 4, 5, and 9 are lit. (See Figure 7 2.) 
This is a win situation and one point will be added to the score. The 
high-pitch tone sounds. LED #9 is then lit to indicate the total of the 8 
previous points plus the one point obtained on this spin. | 
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Fig. 7.2: A Win Situation 


Key 0 is pressed again. This time only LED 5 in the middle row is lit 
- after the spin. The score reverts back to 8. (Remember, the player 
- loses 1 point from his or her score if either zero or only one LED in the 
- middle row is lit after the spin.) 

Key 0 is pressed again; this time LEDs 5 and 6 light up resulting in a 
score of nine. 

Key 0 is pressed again. LED 4 is lit at the end of the spin, and LED 8 
lights up again. 

Key 0 is pressed. LED 6 is lit. The score is now 7, etc. 


THE ALGORITHM 


The basic sequencing for the slot machine program is shown in the 
flowchart in Figure 7.3. First, the score is displayed, then the game is 
started by the player’s key stroke and the LEDs are spun. After this, 
the results are evaluated: the score is correspondingly updated and a 
win or lose situation is indicated. 

The LED positions in a column are labeled 0, 1, 2, from the top to bot- 
tom. LEDs are spun by sequentially lighting positions 0, 1, 2, and then 
returning to position 0. The LEDs continue to spin in this manner and 
their speed of rotation diminishes until they finally come to a stop. 
This effect is achieved by incrementing the delay between each suc- 
cessive actuation of an LED within a given column. A counter-register 
is associated with each ‘‘wheel,’’ or column of three LEDs. The initial 
contents of the three counters for wheels 1, 2, and 3 are obtained from 
a random number generator. In order to influence the odds, the ran- 
dom number must fit within a programmable bracket called (LOLIM, 
HILIM). The value of this counter is transferred to a temporary 
memory location. This location is regularly decremented until it 
reaches the value ‘‘0.’? When the value 0 is reached, the next LED on 
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START 
INITIAL 
SCORE — 8 


KEY STROKE 


SIGNAL WIN 


SIGNAL LOSE 


Fig. 7.3: SlotsFlowchart 


SLOT MACHINE 


the ‘‘wheel’’ is lit. In addition, the original counter contents are in- 
cremented by one, resulting in a longer delay before lighting up the 
next LED. Whenever the counter overflows to 0, the process for that 
wheel stops. Thus, by using synchronous updating of the temporary 
memory locations, the effect of asynchronously moving LED “Бір” 
is achieved. When all. LEDs have stopped, the resulting position is 
evaluated. 

The flowchart corresponding to this DISPLAY routine is shown in 
Figure 7.4. Let us analyze it. In steps1, 2, and 3 the LED pointers are 
initialized to the top row of LEDs (position 0). The three counters 
used to supply the timing interval for each wheel are filled with num- 
bers from a random number generator. The random number is selected 
between set limits. Finally, the three counters are copied into the tem- 
porary locations reserved for decrementing the delay constants. 


Let us examine the next steps presented in Figure 7.4: 

4. The wheel pointer X is set at the right-most column: X = 3. 

S. The corresponding counter for the current column (column 3 
this time) is tested for the value 0 to see if the wheel has stopped. 
It is not 0 the first time around. 

6,7. The delay constant for the column of LEDs determined by 
the wheel pointer is decremented, then it is tested against the 
value 0. If the delay is not 0, nothing else happens for this 
column, and we move to the left by one column position: 

16. The column pointer X is decremented: X = X — 1 

17. X is tested against zero. If X is zero, a branch occurs to 
step 5. Every time that X reaches the value zero, the same 
situation may have occurred in all three columns. All 
wheel counters are, therefore, tested for the value zero. 

18. If all counters are zero, the spin is finished and exit oc- 
curs. If all counters are not zero, a delay is implemented, 
and a branch back to (4) occurs. 


Back to step 7: 


Jm If the delay constant has reached the value zero, the next 
LED down in the column must be lit. 
8. The LED pointer for the wheel whose number is in the wheel 


pointer is incremented. 

9. The LED pointer is tested against the value 4. If 4 has not 
been reached, we proceed; otherwise, it is reset to the value 1. 
(LEDs are designated externally by positions 1, 2, and 3 from 
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DISPLAY START 
LED POINTERS = 0 


FILL COUNTERS WITH 
2 | RANDOM NUMBERS 
BETWEEN LOLIM 

& HILIM 


LED POINTER (X) 


=1 


COPY COUNTERS TO 
CORRESPONDING 
DELAY CONSTANT 

LOCATIONS 


10 


TEMP = 3XLED 
POINTER(X) 


LTMSK (X) = 
LIGHTABLE (TEMP, X) 


11 


INCREMENT 


is COUNTER (X) 


COUNTER (X) 
= 0? 


COPY COUNTER (X) 
INTO DELAY 
CONSTANT (X) 


13 


OUTPUT [(LTMSK1 ) 
OR (LTMSK2) OR 
(LTMSK3)] TO LEDs 


TOGGLE SPEAKER 


ALL COUNTERS 


= 0? 
DELAY A ВІТ 


DELAY 
CONSTANT 
(X) = 0? 


15 


DONE: RETURN 


Fig. 7.4: DISPLAY Flowchart Fig. 7.4: DISPLAY Flowchart (Continued) 
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top to bottom. The next LED to be lit after LED #3 is LED 
#1.) 

10,11. The LED must be lit on the board, and a table LIGHTABLE 
is utilized to obtain the proper pattern. 

12. Тһе counter for the appropriate wheel is incremented. Note 
that it is not tested against the value zero. This will occur only 
when the program moves to the left of wheel 1. This is done 
at location 18 in the flowchart, where the counters are tested 
for the value zero. | 

13.  Thenew value of the counter is copied into the delay constant 
location, resulting in an increased delay before tlie next LED 
actuation. 

14. The current lighting patterns of each column are combined 
and displayed. 

15. As each LED is lit in sequence, the speaker is toggled (ac- 


tuated) . 
16. As usual, we move to the column on the left and proceed as 
before. i 
Let us go back to the test at step 5 in the flowchart: 
5. Note that whenever the counter value for a column is zero, 


the LED in that column has stopped moving. No further ac- 
tion is required. This is accounted for in the flowchart by the 
arrow to the right of the decision box at 5: the branch occurs 
to 16 and the column pointer is decremented, resulting in no 
change for the column whose counter was zero. 
Next, the evaluation algorithm must evaluate the results once all 
LEDs have stopped and then it must signal the results to the player. 
Let us examine it. 


The Evaluation Process 


The flowchart for the EVAL algorithm is shown in Figure 7.5. The 
evaluation process is also illustrated in Figure 7.6, which shows the 
nine LEDs and the corresponding entities associated with them. Refer- 
ring to Figure 7.6, X is a row-pointer and Y is a column- or wheel- 
pointer. A value counter is associated with each row. It contains the 
total number of LEDs lit in that row. This value counter will be con- 
verted into a score according to specific rules for each row. So far, we 
have only used row 2 and have defined a winning situation as being 
one in which two or three LEDs were lit in that row. However, many 
other combinations are possible and are allowed by this mechanism. 
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Exercises will be suggested later for other winning patterns. 

The total for all of the scores in each row is added into a total called 
SCORE, shown at the bottom right-hand corner of Figure 7.6. 

Let us now refer to the flowchart in Figure 7.5. The wheel- or col- 
umn pointer Y is set initially to the right-most column: Y = 3. 

2. The temporary counters are initialized to the value zero. 

3. Within the current column (3), we need only look at the row 
which has a lit LED. This row is pointed to by LED- 
POINTER. The corresponding row value is stored in: 

X = LED POINTER (Y) 

4. Since an LED is lit in the row pointed to by X, the value 
counter for that row is incremented by one. 

Assuming the LED situation of Figure 7.7, the second value counter 

has been set to the value 1. 

5. The next column is examined: Y — Y — 1. 

If Y is not 0, we go back to (3); otherwise the evaluation process 

may proceed to its next phase. 


Exercise 7-1: Using the flowchart of Figure 7.5, and using the example 
of Figure 7.7, show the resulting values contained in the value counters 
when we finally exit from the test at (6) in the flowchart of Figure 7.5. 


The actual number of LEDs lit in each row must now be trans- 
formed into a score. The SCORETABL is used for that purpose. If the 
scoring rules contained in this table are changed, they will completely 
modify the way the game is played. 

The score table contains four byte-long numbers per row. Each 
number corresponds to the score to be earned by the player when 0, 1, 
2, or 3 LEDs are lit in that row. The logical organization of the score 
table is shown in Figure 7.8. The entries in the table correspond to the 
score values which have been selected for the program presented at 
the beginning of this chapter. Any combination of LEDs in rows 1 or 
3 scores 0. Any combination of 2 LEDs in row 2 scores 1, but, three 
LEDs score 3. Practically, this means that the score value of row 1 is 
obtained by merely using an indexed access technique with the number 
of LEDs lit as the index. For row 2, a displacement of four must be 
added for table access. In row 3, an additional displacement of four 
must be added. Mathematically, this translates to: 


SCORE = SCORETABL[(X — 1) x 4 + 1 + Y] 
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“EVAL 
START 


2 | VALUE COUNTERS, 
SCORTMP = 0 8 TEMP = 


(х= 1) ха+1 
X = LED POINTER (Y) 9 
INCREMENT VALUE 
COUNTER (X) 10 


13 


NO совтмр = 0N TES 


INCREMENT SCORE DECREMENT SCORE [ 


Q — SCORTABL 
(VALUE COUNTER 
(X), TEMP) 


15 21| SHOW NEW SCORE, 
YES SOUND LOW TONE 


SIGNAL GAME 


NO 


WON WITH RISING 


16 
WARBLE, LIT LEDs 
PLAY HIGH TONE, 
SHOW NEW SCORE 
RETURN: 
- NEW GAME 
ae = RETURN: 
Ша NEXT SPIN 


ҮЕ5 


SCORTMP - 
SCORTMP + Q 


ы 
№ 
2 
о 


YES 


YES 


RETURN: RETURN: 
NEXT SPIN NEW GAME 


=0? 
SCORTMP = 0? 23 SOUND 
FALLING TONE 


Fig: 7:5: EVAL Flowchart Fig. 7.5: EVAL Flowchart (Continued) 
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VALUE 
COUNTER SCORE 


Y=] Y=2 Y=3 VALUE 
COUNTER 


Fig. 7.7: An Evaluation Example 


where X is the row number and Y is the number of LEDs lit for that 
row. Since this technique allows each of the three rows to generate a 
score, the program must test the value counter in each row to obtain 
the total score. 


This is accomplished by steps 7 and 8: the row pointer is initialized 
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0 1 2 3 NUMBER LEDs LIT 


ROW 3 


Fig. 7.8: The Score Table 


to 3, and a score table displacement pointer is set up: 


9. 


TEMP = (Х- 1) х4 +1 
Next, the value of the score is obtained from the table: 


Q = SCORTABL (value counter (X), TEMP) 


The value of that row’s score is obtained by accessing the score 
table indexed by the number of LEDs lit, contained in the value counter 
for that row, plus a displacement equal to TEMP. The intermediate 
score is obtained by adding this partial score to any previous value: 


10. 
П. 


12. 


13. 


14. 
15. 


SCORTMP = SCORTMP + Q 

Finally, the row number is decremented, and the process is 
repeated until X reaches the value 0. 

Whenever X reaches the value 0, the score for this spin has 
been computed and stored in location SCORTMP. 

At this point, the score computed above (SCORTMD) is ex- 
amined by the program, and two possibilities exist: if the 
SCORTMP is 0, a branch occurs to 20, where the game score 
is decremented. If SCORTMP is not 0, the game score will be 
increased by the score for this spin — SCORTMP. Let us 
follow this path first. 

The total game score is incremented by one. 

It is then tested for the maximum value of 16. 
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16. If the maximum score of 16 is reached in step 15, a special 


* LOC CODE LINE 
audible and visual signal is generated to reward the player. A 6500 FSCO MACHINE SEMULATORIPRDORANL 
0000 PRESS ANY KEY TO START “ӨРІМ”, 
new game may be started. . 0000 #SCORE DETERMINED BY ARRAY. 'SCORTB', 
I7. If 16 is not reached in step 15, the updated game score is 9000 Pa eee 
shown to the player, accompanied by a high-pitched tone. 0000 ; nw 
18. The amount by which the game score must be increased, 0000 TEMF  Жежті %ТЕМРОКАКҮ STORAGE. 
Я 0001 SCORTP *-X*1 $ TEMPORARY SCORE STORAGE. 
SCORTMP, is decremented. Е SCORE Ahmet $ SCORE , 
% Қ Ж=Жж+1 3BURATION OF TONES. 
19. If SCORTMP is not zero, more points must be added to the 0004 FREQ — X«x41 FREQUENCY OF TONES. 
е. SPEEDS x*-x*3 SPEELS OF REVOLUTION 
game score, and a branch occurs to 14. Otherwise, the player 0008 FIN COLUMNS Dn 
. 0008 INDX ж=ж+3 DELAY COUNTERS FOR LED REVOLUTIONS. 
may enter the next Spin. 0008 INCR — -k=x+3 , $POINTERS FOR LED POSITIONS! i 
Let us now follow the other path from position thirteen on the Sock Ra ee eee ee 
0011 VALUES x*-x*t*3 NO. OF LIT LEDS IN EACH ROW, 
flowchart, where the total score had been tested: 614 RN жокко VECRATCHBAD FOR END 3 GENS 
20. Тһе score for this spin is 0, so the game score is decremented. ae TU 
21. Ші displayed to the player along with a low tone. nore eser a v Ss lores vio qud ROS EA 
22. Тһе new score is tested for the minimum value 0. If this oora DORIA n dons piod LE DIRECTION REB. | 
UN = ; 3 0 REG. (LEDS) | 
minimum value has been reached, the player has lost. Other- 0018 DDRiB = $4002 jVIA*1 PORT B DATA DIRECTION REG. | 
y " 001^ РОКТЗВ = $ACOO $UIAS3 FORT B I/O REG. (SFNR) 
wise, the player may keep playing. 5018 DDR3B = $ACO2 $VIA*3 FORT E DATA DIRECTION REG. | 
. . . . " тісі. т 
23. А descending siren-type tone is generated to indicate the loss, 0018 ; ROR | 
001A 3 ARRAYS 
and the game ends. 0018 A | 
0014 P ARRAY OF PATTERNS TO LIGHT LES. 
0014 sARRAY ROWS CORRESPOND TO COLUMNS OF LED | 
THE PROGRAM зи E япь One Sia гок венеца, om 
М . 
D í S i 0015 E LTABLE .BYTE 178764 
ata Structures 8 
0016 40 
Р 0010 02 «ВҮТЕ 27167128 
Two tables are used by this program: 1) the score table is used to Boi Be 
compute a score from the number of LEDs lit in each row — this has do cos BYTE 4932,0 | 
already been described; 2) the LTABLE is used to generate the ap- 0022 00 
ў Я nw 0023 sARRAY OF SCORES RECEIVED FOR CERTAIN 
propriate code on the I/O port to light the specified LED. Each entry 0023 #PATTERNS OF LIT LETS, 
k 4 . . , n A 0023 *ROUS CORRESFONE TO ROWS IN LED ARRAY, 
within this table contains a pattern to be OR'ed into the I/O register to 0023 $COLUMNS CORRESPOND TO NUMBER OF LEIS 
. "m 0023 $LIT IN THAT ROW, 
light the specified LED. 0023 PI.E.» 3 LEDS IN MIDDLE ROW IS 3 FTS. 
Vertically, in the memory, the table entries correspond to the first 0024 00 ЕРИНИ 
column, the second column, and then the third column of LEDs. 0026 00 
Looking at the program on lines 39, 40, and 41, the rows of digits cor- 572745 ESTE OQ res 
respond respectively to the columns of LEDs. For example, the third cota ee 
entry in the table, i.e., 64 decimal, or 40 hexadecimal (at address розра 0n а 
001C) corresponds to the third LED in the first column on the Games сого 
Board, or LED 7. 002F ; 
002Ғ РЖЖЖЖЖ MAIN PROGRAM жжжжж 
002F $ 
i 002Ғ GETKEY к $100 
Page Zero Variables 505 3104260 
0200 А9 FF LEA #$FF ISET UF FORTS. 


The following variables are stored in memory: 


— TEMP is a scratch location 
Fig. 7.9: Slot Machine Program 
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0202 
0205 
0208 
020В 
020E 
0210 
0212 
0214 
0215 
0218 
0218 
021E 
0221 
0223 
0225 
0227 
0227 
0227 
0227 
0227 
0227 
0227 
0227 
0229 
022K 
0220 
022F 
0231 
0234 
0236 
0238 
023A 
023C 
023F 
0242 
0243 
0245 
0247 
0249 
024R 
024 
024Ғ 
O24F 
0251 
0252 
0254 
0256 
0258 
025А 
025С 
0251 
025E 
025F 
0261 
0263 
0264 
0267 
0269 
026% 
026C 
024E 
0270 
0272 
0275 
0277 
0279 
0278 
027E 
0280 
0282 
0284 
0287 


o3 


90 


00 


AO 


^0 


AO 


STA DEBERIA 
STA DIRiB 
STA DIRSE 
LDA Тісі. $GET SEED FOR RANDOM # GEN, 
STA КМО+1 
START LDA #8 sINITIAL SCORE IS EIGHT. 
STA SCORE 
TAY sSHOW INITIAL SCORE 
JSR LIGHT 
KEY JSR GETKEY АМҮ KEY FRESSEN STARTS PROGRAM. 
JSR DISPLY $SFIN WHEELS 
JSR EVAL sCHECK SCORE ANI SHOW IT 
LDA SCORE 
BNE KEY ІР SCORE 0» GET NEXT PLAY, 
BEQ START $3IF SCORE = 0» RESTART. 


, 

3SUBROUTINE TO DISPLAY ‘SPINNING’ LENS» 

FIND COMBINATION TO USED TO ПЕТЕКМІМЕ SCORE. 
$ 


LOLIM = 90 

HILIM = 135 

SPDPRM = 80 

DISPLY LDA #0 3RESET POINTERS, 
STA INCR 
STA ІМСК+і 


STA INCR+2 
LORND LEY #2 
GETRNB JSR RANDOM 


;SET INDEX FOR 3 ITERATIONS. 
$GET КАМПОМ %. 


CMF #HILIM %Т00 LARGE? 

BCS GETRND 3IF 50» GET ANOTHER. 

CMF #LOLIM 3700 SMALL? 

ВСС GETRNI! $1F 50» GET ANOTHER. 

STA INDX»Y #SAVE IN LOOF INDEXES ANI! 
STA SPEEDS»Y 3LOOUP SFEEL COUNTERS. 

LEY 

ЕРІ. бЕТКМІ СЕТ NEXT RNI f. 


UPDATE LUX +2 
UPETLFE LEY SPEEISs;X 


sSET INDEX FOR THREE ITERATIONS. 
#15 SPEER(X)-0? 


BEQ NXTUPE ІР 50, RO NEXT UPDATE. 
BEC INDX»:X sDECREMENT LOOF ІМПЕХ(Х) 
BNE NXTUFTD ;IF LOOPINDEX(X) <> 0, 
00 NEXT UPDATE. 
LEY INCR:X INCREMENT FOINTEROO, 
INY 
CRY #3 sPOINTER = 3? 
ENE NORST $IF NOT 5КІР... 
LEY #0 f.s RESET ОҒ FOINTER TO O. 
NORST STY INCR:X RESTORE POINTER(X). 
STX TEMF $MULTIFLY X BY 3 FOR ARRAY ACCESS. 
TXA 
ASL A 
CLC 
АПС TEMP 
ADC ІМСК,Х PADLE COLUMN# TO FTR(X) FOR ROWF. 


TAY $XFER TO Y FOR INDEXING. 

LIA LTABLE;»Y $GET PATTERN FOR LED. 

STA LTMSN»X 3STORE IN LIGHT MASK(X), 
SFOUPD LOY SPEEDS +x $INCREMENT SFEED(X). 


INY 
STY SPEEDS;X 3 RESTORE. 
STY ІМІХ,Х ;RESET LOOF INDEX(X), 
LETUFO LIA #0 %ШРПАТЕ LIGHTS. 
STA FORTIK $RESET LED #9 
LIA LTMSK+2 sCOMBINE PATTERNS FOR OUTFUT. 
BNE OFFLn9 3IF МА5ҚЖЗ <> 0» LED 9 OFF. 
LDA #01 STURN ON LED 9. 
STA FORTIER 
LIA #0 3RESET А SO FATTERN WON’T BE BAL. 


OFFLU9 ORA LTMSK 
ORA LTMSK+1 
STA FORTIA 
LIA РОКТЗВ 


$COMBINE REST OF FATTERNS. 


3SET LIGHTS, 
*TOGGLE SPEAKER. 


Fig. 7.9: Slot Machine Program (Continued) 


028A 
o28C 
028Ғ 
0290 
0292 
0294 
0295 
0297 
0299 
0299 
029B 
029р 
029Ғ 
029Ғ 
9241 
0243 
02656 
0267 
0247 
0247 
0287 
0247 
0247 
0247 
0247 
0249 
O2AB 
озар 
O2AF 
02B1 
0283 
02В3 
02В5 
02В7 
02R8 
о2ва 
о2вс 
O2RC 
о2вр 
02RD 
O2RE 
O2EF 
0200 
0262 
02C3 
02C6 
02C7 
02C9 
02C9 
02CR 
02CC 
02СЕ 
0200 
0202 
0204 
0206 
0218 
0218 
021C 
020E 
02E1 
02ЕЗ 
02Е4 
02Е9 
O2ER 
02ЕВ 
O2EL 
02ЕЕ 
O2FO 
o2F3 
o2F6 
o2F8 
O2FA 


SLOT MACHINE 


EOR #$FF 
ас STA РОКТЗВ 
NXTUFD DEX #ПЕСКЕМЕМТ X FOR NEXT UFDATE. 
EFL UFETLF РІК X>=0y ПО NEXT UPLATE. 
LEY £SPLPRM sDELAY A BIT TO SLOW 
WAIT nEY $FLASHING OF LEDS, 
BNE WAIT 
LDA SPEEIS $CHECK IF ALL COLUMNS OF 
sLEDS STOPFER, 
ORA SPEEDIS+1 
ORA SPEEDS42 
BNE UPDATE SIF NOT» LO NEXT SEQUENCE 
ОҒ UPDATES. 
LBA #$FF 
STA DUR sDELAY TO SHOW USER FATTERN. 
03 JSR DELAY 
RTS PALL LEDS STOPFEI LONE. 
$ 
$SUBKOUTINE TO EVALUATE PRODUCT OF SFIN» ANI! 
3DISPLAY SCORE W/ TONES FOR WIN» LOSE? WINHTENIGGAME: 
sAND LOSE*ENDGAME . 
ІД 
НІТОМЕ = $20 
LOTONE = $FO 
EVAL LDA #0 3RESET VARIABLES. 
STA VALUES 
STA VALUES+1 
STA VALUESt2 
STA SCORTF 
LnY #2 SET INDEX Y FOR 3 ITERATIONS 
ТО COUNT # OF LEDS ON IN EACH ROW, 
CNTLF LOX INCR»Y %СНЕСК FOINTER(Y)» ADBING 
INC VALUES;X ТОР + OF LEDS ON IN EACH КОМ, 
DEY 
BFL CNTLP LOOF IF NOT DONE. 
LDX #2 SET INDEX X FOR 3 ITERATIONS. 
ОЕ LOOF TO FIND SCORE. 
SCORLF TXA $MULTIFLY INDEX BY FOUR FOR ARRAY 
ROW ACCESS, 
ASL A 
ASL A 
CLC АШИ Ф OF LENS ON IN ROUX) TO... 
ABC VALUES? X ў, ARRIVE AT COLUMN ADDRESS IN ARRAY, 
TAY 3USE AS INDEX 
90 LIA SCORTR»Y 3GET SCORE FOR THIS SFIN. 
CLC 
alc SCORTF ФАШП TO ANY PREVIOUS SCORES 
sACCUMULATELD IN THIS LOOF. 
STA SCORTF 3 RESTORE 
DEX 
BPL SCORLF $LOOF IF NOT DONE 
(ПА %%40 SET UF DURATIONS FOR TONES. 
STA DUR 
LIA SCORTF %5ЕТ SCORE FOR THIS SFIN, 
REQ LOSE ;IF SCORE IS 0, LOSE A FOINT. 
WIN INC SCORE PRAISE OVERALL SCORE BY ONE. 
LDY SCORE :GET SCORE 
СРҮ #14 НІМ W/ 16 FTS? 
BEQ WINENI YES ) UINTENIGAME. 
o3 JSR LIGHT #SHOW SCORE. 
LDA #HITONE ;FLAY HIGH REEF, 
o3 JSR TONE 
o3 JSR DELAY SHORT DELAY. 
ПЕС SCORTF ФШЕСКЕМЕМТ SCORE TO RE АПШЕП TO... 
$O0VERALL SCORE BY ONE. 
BNE WIN #LOOF IF SCORE XFER NOT COMPLETE, 
RTS ;DONE» RETURN TO MAIN FROGRAM, 
WINEND LDA #$FF *TURN ALL LENS ON TO SIGNAL WIN. 
^0 STA ҒОКТ1А 
^0 STA РОКТІВ 
STA TEMF SET FREQ FARM FOR RISING UARHLE, 
LIA #0 
STA SCORE #CLEAR TO FLAG RESTART. 


Fig. 7.9: Slot Machine Program (Continued) 
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TA озар Aó O3 LUX DUR 
І о FL2 LLY FREQ 
STA DUR SHORT DURATION FOR INDIVIDUAL Hec se 2 ЕГІ EY 
;BEEFS IN WARELE. 0372. 18 -CEC 
LDA TEMF $GET FREQUENCY... . 03273 "90:00 ЕСС x42 
JSR TONE feso FOR BEEF, 0375 DO FA BNE FLI 
DEC TEMP jNEXT BEEP WILL EE HIGHER, . 0377 49 FF EOR &$FF 
BNE RISE 700 NEXT BEEF IF NOT DONE. 2 0379 8n 00 АС STA FORT3E 
RTS SRETURN FOR RESTART. 037C Са DEX 
ПЕС SCORE РІЕ SFIN BAD» SCORE-SCORE-1 037D 10 FO BNE FL2 
LIY SCORE $SHOW SCORE i O37F 60 d RTS 
JSR LIGHT 2 0380 $ 
LIA #LOTONE РАУ LOW LOSE ТОМЕ, 0380 RANDOM NUMBER GENERATOR SUBRQUTINE,. 
JSR TONE : 0380 $ 
LEY SCORE БЕТ SCORE TO SEE .... : 0380 38 КАМПОМ SEC 
BEQ LOSENI ;IF GAME IS OVER. 0381 A5 15 LDA RNIM1 
RTS ІР МОТ» RETURN FOR NEXT SFIN. : 0383 65 18 АПС RND+4 
LOSEND LIA $SET TEMP FOR USE AS FREQ FARM 0385 65 19 ADC RNIMS 
STA РІМ FALLING WARBLE. 0387 85 14 STA RNE 
STA $CLEAR LET. £1. 0389 2 04 LEX #4 
LDA 038B BS 14 RNDSH LIA RND»X 
STA 0380 95 15 STA RNIM1;X 
LDA 038F CA DEX 
JSR sPLAY BEEP. 0390 10 F9 BFL RNDSH 
INC > #NEXT TONE WILL EE LOWER, 0392 60 RTS 
BNE 0393 ЕМП 
RTS #RETURN FOR RESTART. 
А SYMBOL TABLE 
$UARIAELE LENGTH DELAY SUBROUTINE. 
¿DELAY LENGTH = (2044KLCONTENTS OF DURI+10) US. SYMBOL | VALUE 
DELAY LDY IUR БЕТ DELAY LENGTH. CNTLP 0285 DERIA A003  DDRiB | 6002  LDDR3H АСО2 
ші LOX #$FF $SET CNTR FOR INNER 2040 US. LOOF t. | DELAY 0330  DISFLY 0227 гі 0332 DL? ^ 0334 
IL? ЕМЕ X42 PMASTE TIME. DUR 0003 EVAL 0207 ғаш 0329 Еі 0371 
DEX $DECREMENT INNER LOOF CNTR. FL2 O36F FREQ 0004 БЕТКЕ 0100 GETRND 0231 
BNE DL2 3LOOF ‘TILL INNER LOOF DONE. HIBYTE 0360 HILIM ; 0087 HITONE 0020 INCK одов 
DEY $BECREMENT OUTER LOOP CNTR. INDX 0008 KEY 0218 — LDRNB 022F  LEDUFB 0270 
BNE DL1 $LOOP ‘TILL DONE. LIGHT 0330 LOBYTE  035C  LOLIM 005A LOSE 030A 
RTS $RETURN. LOSEND 031B LOTONE OOFO  LTAELE 0014 LTCC 0355 
; LTMSK 000E  LTSHFT 0340 NORST 0258  NXTUPD 028F 
#SUBROUNTINE TO LIGHT LET CORRESPONDING OFFLD? 0280 FORTIA A001 PORTIE А000  PORTSB АС00 
iTO THE CONTENTS OF REGISTER Y ON ENTERING. _ | RANDOM — 0380 RISE 0300 км 0014  RNISH 0388 
; SCORE 0002  SCORLP O2BC  SCORTE 0023 SCORTF 0001 
LIGHT LDA #0 #CLEAR REG. A FOR BIT SHIFT. SPDPRM 0050 SPDUPD 0249 SPEEDS 0005 START 0210 
'EMP. А : тісі А004 ТЕМР 0000 ТОМЕ 0364 ИРПАТЕ 0245 
STA TEMP ;CLEAR OVERFLOW FLAG. x 
STA PORTIA $CLEAR LOU LENS. UPDTLP 0247 VALUES 0011 WAIT 0294 WIN озге 
STA FORT1E 3CLEAR HIGH LETS. : WINEND О2ЕЕ 
CFY #15 $CODE FOR UNCONNECTED BIT? : END OF ASSEMBLY 
BEQ *+3 31F 60, NO CHNG. 
REY ;BECREMENT TO MATCH. 
SEC #SET ВІТ TO ВЕ SHIFTED HIGH. Fig. 7.9: Slot Machine Program (Continued) 
LTSHFT ROL A $SHIFT BIT LEFT. 
BCC LTCC FIF CARRY SET» OVERFLOW HAS 
#OCCURRED INTO HIGH BYTE. ; : 
LUX £$FF $SET OVERFLOW FLAG. — SCORTP is used as a temporary storage for the score gained or 
STX TEMP : Е 
ROL A {МОМЕ ВІТ OUT OF CARRY. lost on each spin 
IEY ;ONE LESS ВІТ TO BE SHIFTED. - 4 
LTSHFT $SHIFT AGAIN IF NOT DONE. — SCORE is the game score 
TEMP Ў : : : 
НІВҮТЕ » OVERFLOW! A CONTAINS — DUR and FREQ specify the usual constants for tone generation 
$HIGH BYTE = i i i r the three 
LORYTE PORTIA STORE A IN LOW ORDER LENS. SPEEDS (3 locations) specify the revolution speeds for the t 
3 RETURN. 
НІВҮТЕ РОКТІВ #STORE А IN HIGH ORDER LEDS, columns ) . 
І TRETURN® — INDX (3 locations): delay counters for LED revolutions 
, 
СЕ HRISERATEON GUPROUTINE — INCR (3 locations): pointers to the LED positions in each column 
? 
TONE STA FREQ used to fetch patterns out of tables 
СПА #$FF 4 ӘЙТ? . 
STA РОКТЗЕ — LTMSK (3 locations): patterns indicating lit LEDs 


LIA жоо 


— VALUES (3 locations): number of LEDs lit in each column 
— RND (6 locations): scratch-pad for random number generator. 
Fig. 7.9: Slot Machine Program (Continued) 
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Program Implementation | soon as a key has been pressed, the wheels must be spun: 


The program consists of a main program and two main subroutines: 
DISPLY and EVAL. It also contains some utility subroutines: DELAY 
for a variable length delay, LIGHT to light the appropriate LED, 
TONE to generate a tone, and RANDOM to generate a random 
number. 

The main program is stored at memory locations 200 and up. As 
usual, the three data-direction registers for Ports А and B of VIA#1 
and for Port B of VIA#3 must be conditioned as outputs: 


JSR DISPLY 


ce the wheels have stopped, the score must be evaluated and 
played with the accompanying sound: 


JSR EVAL 


the final score is not “0,7? the process is restarted: 


LDA #$FF 

STA DDRIA LDA SCORE 
STA DDRIB BNE KEY 
STA DDR3B 


and the user may spin the wheels again. Otherwise, if the score was 


К : : F : " a new game is started: 
As in previous chapters, the counter register of timer 1 is used to pro- d 8 


vide an initial random number (a seed for the random number generator). 
This seed is stored at memory location RND + 1, where it will be used 
later by the random number generation subroutine: 


BEQ START 


is completes the body of the main program. It is quite simple 


LDA TICL because it has been structured with subroutines. 


STA RND + 1 The Subroutines 


On starting a new game, the initial score is set to 8. It is established: The algorithms corresponding to the two main subroutines DISPLY 
and EVAL have been described in the previous section. Let us now 


START LDA #8 consider their program implementation. 


STA SCORE 
DISPLY Subroutine 


and displayed: Three essential subroutine parameters are LOLIM, HILIM, and 


SPDPRM. For example, lowering LOLIM will result in a longer spin- 
ning time for the LEDs. Various other effects can be obtained by vary- 
ng these three parameters. One might be to include a win almost every 
time! Here LOLIM = 90, HILIM = 134, SPDPRM = 80. 
Memory location INCR is used as a pointer to the current LED 
position. It will be used later to fetch the appropriate bit pattern from 
he table, and may have the value 0, 1, or 2 (pointing to LED positions 
1, 2, or 3). The three pointers for the LEDs in each column are stored 
respectively at memory locations INCR, INCR + 1, and INCR + 2. 
* They are initialized to 0: 


TAY Y must contain it 
JSR LIGHT 


The LIGHT subroutine is used to display the score by lighting up the 
LED corresponding to the contents of register Y. It will be described 
later. 

The slot machine program is now ready to respond to the player. 
Any key may be pressed: 


KEY JSR GETKEY 
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DISPLY |. LDA #0 
STA INCR 
STA INCR + 1 
STA INCR + 2 


Note that in the previous examples (such as Figure 7.7), in order t 
simplify the explanations, we have used pointers X and Y to repr 
sent the values between 1 and 3. Here, X and Y will have values rang- 
ing between 0 and 2 to facilitate indexing. The wheel pointer is set to: 
the right-most wheel: 


LDRND LDY #2 


An initial random number is obtained with the RANDOM subroutine: 


GETRND JSR RANDOM 


The number returned by the subroutine is compared with the accep- 
table low limit and the acceptable high limit. If it does not fit within 
the specified interval, it is rejected, and a new number is obtained until 
one is found which fits the required interval. 


SPEEDS RANDOM | RANDOM | RANDOM 


CMP #HILIM Too large? 
BCS GETRND If so, get another 
CMP #LOLIM Too small? 
BCC GETRND If so, get another 


Fig. 7.10: Spinning the Wheels 


The valid random number is then stored in the index location INDX 
and in the SPEEDS location for the current column. (See Figure 7.10.) UPDATE LDX #2 Set counter for 3 iterations 
STA INDX,Y 

STA SPEEDS,Y 


The speed is tested for the value 0: 


UPDTLP LDY SPEEDS,X Is speed (X) = 0? 


The same process is carried out for column 1 and column 0: BEQ NXTUPD If so, update next column 


DEY 
BPL GETRND Get next random # 


As long as the speed is not 0, the next LED in that column will have to 
be lit. The delay count is decremented: 


Once all three columns have obtained their index and speed, a new 
iteration loop is started, using register X as a wheel counter: 


DEC INDX,X Decrement loop, index (X) 
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If the delay has not decremented to 0, a branch occurs to NXTUPD: 
which will be described below. Otherwise, if the delay counter INDX 
is decremented to 0, the next LED should be lit. The LED pointer is: 
incremented with a possible wrap-around if it reaches the value 3: | 


ADC INCR,X 
TAY 
LDA LTABLE,Y Get pattern for LED 


nce the pattern has been obtained, it is stored in one of three 
emory locations at address LTMSK and following. The pattern is 
tored at the memory location corresponding to the column currently 
eing updated, where the LED has ‘‘moved.”’ The lights will be turned 


BNE NXTUPD If loop index(X) < > 0, do 
next update 
LDY INCR,X Inc pointer 


INY n only after the complete pattern for all three columns has been im- 
CPY #3 Pointer = 3? lemented. As a result of the LED having moved one position within 
BNE NORST If not, skip hat column, the speed constant must be incremented: 
LDY #0 Reset to 0 
NORST STY INCR,X Restore pointer (X) STA LTMSK,X 
SPDUPD LDY SPEEDS,X 
The new value of the LED pointer is stored back into INCR for the INY 


appropriate column. (Remember that within the UPDATE routine, X STY SPEEDS,X 
points at the column.) In order to light the appropriate LED, a bit pat- 
tern must be obtained from LTABLE. Note that LTABLE (and also 
SCORTB) is treated conceptually,as if it was a two-dimensional array, 
ie., having rows and columns. However, both LTABLE and 
SCORTB appear in memory as a contiguous series of numbers. Thus, 
in order to obtain the address of a particular element, the row number 
must be multiplied by the number of columns and then added to the 
column number. 

The table will be accessed using the indexed addressing mode, with 
register Y used as the index register. In order to access the table, X 
must first be multiplied by 3, then the value of INCR (i.e., the LED 
pointer) must be added to it. 

Multiplication by 3 is accomplished through a left shift followed by 


he index is set so that it is equal to the new speed: 


STY INDX,X 


Note that special handling will now be necessary for LED #9. The 
attern to be displayed on the first eight LEDs was stored in the 
TABLE. The fact that LED 49 must be lit is easily recognized by the 
fact that the pattern for column #3 shows all zeroes; since one LED 
must be lit at all times within that column, it implies that LED #9 will 
be lit: 


LEDUPD LDA #0 


an addition, since a left shift is equivalent to multiplication by 2: STA PORTIB Reset LED 9 
STX TEMP Multiply X by 3 Next, the pattern for the third column is obtained from the location 
TXA where it had been saved at LTMSK + 2. It is tested for the value of 0: 
ASLA Left shift 
СВЕ LDA LTMSK + 2 


The value of INCR is added, and the total is transferred into register Y 
so that indexed addressing may be used. Finally, the entry may be 
retrieved from LTABLE: 


If this pattern is 0, then LED #9 must be turned on: 


LDA #01 
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STA PORTIB 


VALUES 


Otherwise, a branch occurs to location OFFLD9, and the remaining . 
LEDs will be turned on. The pattern contained in the accumulator 
which was obtained from LTMSK + 2, is successively OR’ed with the 
patterns for the second and first columns: 


LDA #0 
OFFLD9 ORA LTMSK 
ORA LTMSK + 1 


At this point, A contains the final pattern which must be sent out in 
the output port to turn on the required LED pattern. This is exactly 
what happens: 


STA PORTIA 


At the same time, the speaker is toggled: - INCR 


LDA PORT3B 
EOR #$FF 


Fig. 7.11: Evaluating the End of A Spin 
STA PORT3B 


Once this complete cycle has been executed, the speed location for 
each column is checked for the value 0. If all columns are 0, the spin is 
finished: l 


It is important to understand that even though only the LED for one 
of the three columns has been moved, it is necessary to simultaneously 
turn on LEDs in all of the columns or the first and second columns 
would go blank! 

Once the third column has been taken care of, the next one must be 
examined. The column pointer X is therefore decremented, and the 
process is continued: 


LDA SPEEDS 
ORA SPEEDS + 1 
ORA SPEEDS + 2 
BNE UPDATE 


Otherwise, a branch occurs at the location UPDATE. If all LEDs 
have stopped, a pause must be generated so that the user may see the 
pattern: 


NDTUPD DEX 
BPL UPDTLP If X >= 0 do next update 


Once the second and the first columns have been handled, a delay is 


: е i р - LDA #$FF 
implemented to avoid flashing the LEDs too fast. This delay is con- STA DUR 
trolled by the speed parameter SPDPRM: JSR DELAY 
LDY #SPDPRM and exit occurs: 
WAIT DEY 
BNE WAIT RTS 
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Exercise 7-2: Note that the contents of the three SPEEDS locations - nce this is done for column 2, the process is repeated for columns 1 


have been OR’ed to test for three zeroes. Would it have been equivalent 
to add them together? 
DEY 


EVAL Subroutine BPL CNTLP 


This subroutine is the user output interface. It computes the score 
achieved by the player and generates the visual and audio effects. The 
constants for frequencies for the high tone generated by a win situation 
and the low tone generated by a lose situation are specified at the 
beginning of this subroutine: 


ow, another iteration will be performed to convert the final numbers 
ntered in the VALUES table into the actual scores as per the 
specifications of the score table, SCORTB. Index register X is used as 
a row-pointer for VALUES and SCORTB. 


#2 
HITONE = $20 LDX 


LOTONE = 550 Since the SCORTB table has four one-byte entries per row level, in 


order to access the correct byte within the table the row number must 
first be multiplied by 4, then the corresponding ''value" (number of 
LEDs lit) for that row must be added to it. This provides the correct 
displacement. The multiplication by 4 is implemented by two suc- 
cessive left shifts: 


The method used to compute the number of LEDs lit per row has been 
discussed and shown in Figure 7.7. The number of LEDs lit for each 
row is initially reset to 0: 


EVAL LDA #0 
STA VALUES 
STA VALUES + 1 
STA VALUES + 2 


SCORLP TXA 

ASLA 

ASLA 
таныта ыы ы The number presently contained in the accumulator is equal to 4 times 
the value contained in X, i.e., 4 times the value of the row-pointer. To 
obtain the final offset within the SCORTB table, we must add to that 
the number of LEDs lit for that row, i.e., the number contained in the 
VALUES tables. This number is retrieved, as usual, by performing an 
indexed addressing operation: 


STA SCORTP 


Index register Y will be used as a column pointer, and the number of 
LEDs lit in each row will be computed. The number of the LED lit for 
the current column is obtained by reading the appropriate INCR en- 
try. See the example in Figure 7.11. The value contained in each of the 
three locations reserved for INCR is a row number. This row number 
is stored in register X, and is used as an index to increment the ap- 
propriate value in the VALUES table. Notice how this is accomplished 
in just two instructions, by cleverly using the indexed addressing feature 
of the 6502 twice: 

CNTLP LDY #2 3 iterations 

LDX INCR,Y 
INC VALUES,X 


CLC 
ADC VALUES,X Column address in array 


This results in the correct final offset for accessing SCORTB. 

The indexed access of the SCORTB table can now be performed. 
Index register Y is used for that purpose, and the contents of the ac- 
cumulator are transferred to it: 


TAY 
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The access is performed: 


LDA SCORTB,Y Get score for this spin 


The correct score for the number of LEDs lit within the row pointed t 
by index register X is now contained in the accumulator. The partia 


score obtained for the current row is added to the running total for all : 


rows: 
CLC 
ADC SCORTP Total the scores 
STA SCORTP Save 


The row number is then decremented so that the next row can be ex 


amined. If X decrements from the value 0, i.e., becomes negative, we 


are done;. otherwise, we loop: 


DEX 
BPL SCORLP 


At this point, a total score has been obtained for the current spin. 
Either a win or a lose must be signaled to the player, both visually and 
audibly. In anticipation of activating the speaker, the memory loca- 
tion DUR is set to the correct tone duration: 


LDA #$60 
STA DUR 


The score is then examined: if 0, a branch occurs to the LOSE routine: 


LDA SCORTP 
BEQ LOSE 


Otherwise, it is a win. Let us examine these two routines. 
WIN Routine 


The final score for the user (for all spins so far) is contained in 
memory location SCORE. This memory location will be incremented 


one point at a time and checked every time against the maximum value 
16. Let us do it: 
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WIN INC SCORE 
LDY SCORE 
CPY #16 


f the maximum value of 16 has been reached, it is the end of the game 
nd a branch occurs to location WINEND: 


BEQ WINEND 


Otherwise, the score display must be updated and a beep must be 


JSR LIGHT 


The LIGHT routine will be described below. It displays the score to 
_ the player. Next, а beep must be sounded. 


LDA #HITONE 
JSR TONE 


The TONE routine will be described later. 


A delay is then implemented: 


JSR DELAY 


then the score for that spin is decremented: 
DEC SCORTP 


and checked against the value 0. If it is 0, the scoring operation is com- 
plete; otherwise, the loop is reentered: 


BNE WIN 
RTS 


WINEND Routine 


This routine is entered whenever a total score of 16 has been 
reached. It is the end of the game. All LEDs are turned on 
simultaneously, and a siren sound with rising frequencies is activated. 
Finally, a restart of the game occurs. 
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All LEDs are turned on by loading the appropriate pattern into Port 
1A and Port 1B: 


LDA #$FF 
STA PORTIA 
STA PORTIB 


Turn on all LEDs 


Variables are reinitialized: the total score becomes 0, which signals to | 


the main program that a new game must be started, the DUR memory 
location is set to 4 to control the duration of time for which the beeps 
will be sounded, and the frequency parameter is set to ‘‘FF’’ at loca- 
tion TEMP: 


STA TEMP Freq. parameter 
LDA #0 

STA SCORE Clear for restart 
LDA #4 

STA DUR Beep duration 


The TONE subroutine is used to generate a beep: 


RISE LDA TEMP 


JSR TONE 


Get frequency 
Generate beep 


The beep frequency constant is then decremented, and the next beep is 
sounded at a slightly higher pitch: 


DEC TEMP 
BNE RISE 


Whenever the frequency constant has been decremented to 0, the siren 
is complete and the routine exits: 


RTS 
LOSE Routine 


Now let us examine what happens in the case of a lose situation. The 
events are essentially symmetrical to those that have been described 
for the win. 

In the case of a loss, the score needs to be updated only once. It is 
decremented by 1: 
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LOSE DEC SCORE 


he lowered score is displayed to the user: 


LDY SCORE 
JSR LIGHT 


n audible tone is generated: 


LDA #LOTONE 
JSR TONE 


The final value of the score is checked to see whether a ‘‘0’’ score has 
been reached. If so, the game is over; otherwise, the next spin is 
- started: ` 


LDY SCORE 
BEQ LOSEND 
RTS 


Let us look at what happens when a ‘‘0”’ score is reached (LOSEND). 
_ A siren of decreasing frequencies will be generated. All LEDs will go 
_ blank on the board: 


LDA #0 
STA TEMP 
STA PORTIA 


LOSEND 


Clear LED #1 


The beep duration for each frequency is set to a value of 4, stored at 
memory location DUR: 


LDA #4 
STA DUR 


The beep for the correct frequency is then generated: 


LDA TEMP 
JSR TONE 


FALL 
Play beep 


Next, the frequency constant is increased by 1, and the process is 
restarted until the TMP register overflows. 
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INC TEMP Next tone will be lower 
BNE FALL 
RTS 


This completes our description of the main program. Let us now ex- 


amine the four subroutines that are used. They are: DELAY, LIGHT, 
TONE, and RANDOM. 


DELAY Subroutine 


This subroutine implements a delay; the duration of the delay is set 
by the contents of memory location DUR. The resulting delay length 


will be equal to (2046 x DUR + 10) microseconds. The delay is im- 


plemented using a traditional two-level, nested loop structure. The 
inner-loop delay is controlled by index register X, while the outer-loop 
delay is controlled by index register Y, which is initialized from the 
contents of memory location DUR. Y is therefore initialized: 


DELAY LDY DUR 


The inner loop delay is then implemented: 


DLI LDX #$FF 

DL2 BNE *+ 2 Waste time 
DEX Inner loop counter 
BNE DL2 Inner loop 


And, finally, the outer loop is implemented: 
DEY 
BNE DL1 
RTS 


Exercise 7-3: Verify the exact duration of the delay implemented by 
the DELAY subroutine. 


LIGHT Subroutine 


This subroutine lights the LED corresponding to the number con- 
tained in register Y. Remember that the fifteen LEDs on the Games 
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oard are numbered externally from 1 to 15 but are connected to bits 0 
o 7 of Port 1A and 0 to 7 of Port IB. Thus, if a score of 1 must be 
isplayed, bit 0 of Port 1A must be turned on. Generally, bit М of Port 
A must be turned on when N is equal to the score minus one. However, 
here is one exception. To see this, refer to Figure 1.4 showing the 
ED connections. Notice that bit 6 of Port 1B is not connected to any 
EDs. Whenever a score of fifteen must be displayed, bit 7 of Port 1B 
ust be turned on. This exception will be handled in the routine by 
imply not decrementing the score when it adds up to fifteen. 

The correct pattern for lighting the appropriate LED will be created 
y shifting a “17 into the accumulator at the correct position. Other 


- methods will be suggested in the exercise below. Let us first initialize: 


LIGHT LDA #0 
STA TEMP 
STA PORTIA 
STA PORTIB 


We must first look at the situation where the score contained in Y is 
15 and where we do nothing (no shift): 


CPY #15 Code for uncorrected bit? 
BEQ *+3 If so, no change 


For any other score, it is first decremented, then the shift is per- 
formed: 


DEY Decrement to internal code 
SEC Set bit to be shifted 
LTSHFT ROL A 


The contents of the accumulator were zeroed in the first instruc- 
tion of this subroutine. The carry is set to the value 1, then shifted into 
the right-most position of A. (See Figure 7.12.) This process will be 
repeated as many times as necessary. Since we must count from | to 
14, or 0 to 13, an overflow will occur whenever the “17 that is rotated 
in the accumulator ‘‘falls off” the left end. As long as this does not 
happen, the shifting process continues, and a branch to location 
LTCC is implemented: 


BCC LTCC 
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7 0 


IB 0000000 Tope 
0 

Е 0000000 1 Cum 
0 

T 00000010 rur AFTER 2 ROTATIONS 
0 


A 00000000 m AFTER 9 ROTATIONS 
pues oes 


Fig. 7.12: Creating the LED Pattern 


However, if the ‘‘1’’ bit does fall off the left end of the accumulator, 
the value “ЕЕ?” is loaded at memory location TEMP to signal this oc- 
currence. Remember that the value was cleared in the second instruc- 
tion of the LIGHT subroutine. 


LDX #$FF 
STX TEMP 


The “17” bit is then moved from the carry into the right-most position 
of the accumulator. Later, the value contained in memory location 
TEMP will be checked, and this will determine whether the pattern 
contained in the accumulator is to be sent to Port 1A or to Port 1B. 
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The shifting process continues. The counter is decremented, and, if 
it reaches the value “0,” we are done; otherwise, the process is 
repeated: 


ROL A 
LTCC DEY 
BPL LTSHFT 


Once the process is completed, the value of memory location TEMP is 
examined. If this value is **0," it indicates that no overflow has oc- 
curred and Port 1A must be used. If this value is not “0,7 i.e., it is 
“БЕ,” then Port 1B must be used: 


LDX TEMP Get overflow flag 
BNE HIBYTE 
LOBYTE STA PORTIA A sent to low LEDs 
RTS Return 
HIBYTE STA PORTIB A sent to high LEDs 
RTS 
TONE Subroutine 


This subroutine generates a beep. The frequency of the beep is 
determined by the contents of the accumulator on entry; the duration 
of the beep is set by the contents of the memory location DUR. This 
has already been described in Chapter 2. 


RANDOM Subroutine 


This is a simple random number generator. The subroutine has 
already been described in Chapter 3. 


Exercise 7-4: Suggest another way to generate the correct LED pattern 
in the accumulator, without using a sequence of rotations. 


Game Variations 


The three rows of LEDs supplied on the Games Board may be inter- 
preted in a way that is different from the one used at the beginning of 
this chapter. Row 1 could be interpreted as, say, cherries. Row 2 could 
be interpreted as stars, and row 3 could be interpreted as oranges. 
Thus, an LED lit in row 1 at the end of a spin shows a cherry, while 
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two LEDs in row 3 show two oranges. The resulting combination is 
one cherry and two oranges. The scoring table used in this program 
can be altered to score a different number of points for each combina- 
tion, depending upon the number of cherries, oranges, or stars present 
at the end of the spin. It becomes simply a matter of modifying the 
values entered into the scoring table. When new values are entered in- 
to the scoring table a completely different scoring result will be im- 
plemented. No other alterations to the program will be needed. 


SUMMARY 


This program, although simple in appearance, is relatively complex 
and can lead to many different games, depending upon the evaluation 
formula used once the lights stop. For clarity, it has been organized into 
separate routines that can be studied individually. 
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THE RULES 


The object of this game is to recognize and duplicate a sequence of 
lights and sounds which are generated by the computer. Several varia- 
tions of this game, such as ‘‘Simon’’ and ‘‘Follow Ме” (manufacturer 
trademarks*), are sold by toy manufacturers. In this version, the player 
must specify, before starting the game, the length of the sequence to be 
recognized. The player indicates his or her length preference by press- 
ing the appropriate key between 1 and 9. At this point the computer 
generates a random sequence of the desired length. It may then be 
heard and seen by pressing any of the alphabetic keys (A through F). 

When one of the alphabetic keys is pressed, the sequence generated 
by the program is displayed on the corresponding LEDs (labeled 1 
through 9) on the Games Board, while it is simultaneously played 
through the loudspeaker as a sequence of notes. While this is happen- 
ing, the player should pay close attention to the sounds and/or lights, 
and then enter the sequence of numbers corresponding to the sequence 
he or she has identified. Every time that the player presses a correct 
key, the corresponding LED on the Games Board lights up, indicating 
a success. Every time a mistake is made, a low-pitched tone is heard. 

At the end of the game, if the player has guessed successfully, all 
LEDs on the board will light up and a rising scale (succession of notes) 
is played. If the player has failed to guess correctly, a single LED will 
light up on the Games Board indicating the number of errors made, 
and a descending scale will be played. 

If the player guessed the series correctly, the game will be restarted. 
Otherwise, the number of errors will be cleared and the player will be 
given another chance to guess the series. 


*'*Follow Ме?” is a trademark of Atari, Ine., *'Simon"' is a trademark of Milton Bradley Co. 
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At any time during a game, the player may press one of the 
alphabetic keys that will allow him or her to hear the sequence again. 
All previous guesses are then erased, and the player starts guessing 
again from the beginning. 

Two LEDs on the bottom row of the LED matrix are used to com- 
municate with the player: 

LED 10 (the left-most LED) indicates **computer ready — enter the 
length of the sequence desired."' 

LED 11 lights up immediately after the player has specified the 
length of the sequence. It will remain lit throughout the game and it 
means that you should ‘‘enter your guess." 

At this point, the player has three options: 

1. To press a key corresponding to the number in the sequence that 
he or she is attempting to recognize. 

2. To press key 0. This will result in restarting the game. 

3. To press keys A through F. This will cause the computer to play 
the sequence again, and will restart the guessing sequence. 


Variations 


The program provides a good test for your musical abilities. It is 
suggested that you start each new game by just listening to the se- 
quence as it is played on the loudspeaker, without looking at the LEDs. 
This is because the LEDs on the Games Board are numbered, and it is 
fairly easy to remember the light sequence simply by memorizing the 
numbers. This would be too simple. The way you should play it is to 
start with a one-note sequence. If you are successful, continue with a 
two-note sequence, and then with a three-note sequence. Match your 
skills with other players. The player able to recognize the longest se- 
quence is the winner. Note that some players are capable of recogniz- 
ing a nine-note sequence fairly easily. 

After a certain number of notes are played (e.g., when more than 
five notes are played), in order to facilitate the guessing you may 
allow the player to look at the LEDs on the Games Board. Another 
approach might be to allow the player to press one of the alphabetic keys 
at any time in order to listen to the sequence again. However, you may 
want to require that the player pay a penalty for doing this. This could 
be achieved by requiring that the player recognize a second sequence 
of the same length before trying a longer one. This means that if, for 
example, a player attempts to recognize a five-note sequence but 
becomes nervous after making a mistake and forgets the sequence, 
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that player will be allowed to press one of the alphabetic keys and hear 
the sequence again. However, if the player is successful on the second 
attempt, he or she must then recognize another five-note sequence 
before proceeding to a six-note one. 

You can be even tougher and specify that any player is allowed a 
replay of the stored pattern a maximum of two, three, or five times 
per game. In other words, throughout the games a player may replay 
the sequence he or she is attempting to guess by pressing one of the 
alphabetic keys, but this resource may be used no more than n times. 


An ESP Tester 


Another variation of this game is to attempt to recognize the se- 
quence without listening to it or seeing it! Clearly, in such a case you 
can rely only on your ESP (Extra Sensory Perception) powers to 
facilitate guessing. In order to determine whether you have ESP or 
not, set the length of the initial sequence to “1.” Then, hit the key in 
an attempt to guess the note selected by the program. Try this a 
number of times. If you do not have ESP your results should be ran- 
dom. Statistically, you should win one out of nine times which is only 
one-ninth of the time, or 11.11% of the time. Note that this percent- 
age is valid only for a large number of guesses. 

If you win more than 11% of the time, you may have ESP! If your 
score is higher than 50%, you should definitely run for political office 
or immediately apply for a top management position in business. If 
your score is less than 11%, you have “negative ESP” and you should 
consider looking both ways before crossing the street. 

The following is an exercise for readers who have a background in 
statistics. 


Exercise 8-1: Compute the statistical probability of guessing a correct 
two-number sequence, and a correct four-number sequence. 


A TYPICAL GAME 


The program starts at location 200. As usual, LED 10 lights up as 
shown in Figure 8.1. We specify a series of length two by pushing key 
“2” on the keyboard. The LED display as it appears in Figure 8.2, 
means ‘‘enter your guess." 

We want to hear the tunes so we push key “Е.” In response, LEDs 5 
and 2 light up briefly on the Games Board and corresponding tones 
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Fig. 8.3: Follow Me 


are heard through the speaker. This is illustrated in Figure 8.3. We 
must now enter the sequence we have recognized. We push “5” on the 
keyboard. In response, LED 11 goes blank and LED 5 lights up briefly. 
Simultaneously, the corresponding note is played through the speaker. 
It is a successful guess! 

Next, we press key “2.” LED 2 lights up, and the speaker produces 
the matching tone indicating that our second guess has also been suc- 
cessful. A moment later, all LEDs on the board light up to con- 
gratulate us and the rising scale is sounded. It is a sequence of notes of 
increasing frequencies meant to confirm that we have guessed suc- 
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- cessfully. The game is then restarted, and LED 10 lights up, as shown 
. in Figure 8.1. 


Let us now follow a losing sequence: LED 10 is lit at the beginning 
of the game, as in Figure 8.1. This time we press key “17 in order to 


. specify a one-note sequence. Led 11 lights up, as shown in Figure 8.2. 


We press key “Е,” and the note is played on the speaker. (We do not 
look at the Games Board to see which LED lights up, as that would be 
too easy.) We press key “3.” A “Чове” sound is heard, and LED 1 
lights up indicating that one mistake has been made. A decreasing 
scale is then played (notes of decreasing frequencies) to confirm to the 
unfortunate player that he or she has guessed the sequence incor- 
rectly. The game is then continued with the same sequence and length, 
i.e., the situation is once again the one indicated in Figure 8.2. 

If at this point the player wants to change the length of the se- 
quence, or enter a new sequence, he or she must explicitly restart the 
game by pressing key 0. After pressing key 0, the situation will be 
the one indicated in Figure 8.1, where the length of the sequence can 
be specified again. 


THE ALGORITHM 


The flowchart for this program is shown in Figure 8.4. Let us ex- 
amine it, step-by-step: 

1. The program tells the player to select a sequence length by 
lighting LED 10 on the Games Board. 

2. The sequence length is read from the keyboard. (Keys 0 and 
A-F are ignored at this point.) 

3. The two main variables are initialized to “0,” i.e., the number 
of guesses and the number of errors are cleared. 

4. A sequence table of the appropriate length must then be 
generated using random numbers whose values are between | 
and 9. 

5. Next, LED 11 is lit, and the player’s keystroke is read. 

6. If itis “0,” the game is restarted. Otherwise, we proceed. 

7. If the keystroke value is greater than or equal to 10, it is an 
alphabetic character and we branch off to the right part of the 
flowchart into steps 8 and 9. The recorded sequence is displayed 
to the player, all variables are reinitialized to 0, and the guess- 
ing process is restarted. If the keystroke was a number between 
1 and 9, it must be matched against the stored value. We go to 
10 on the flowchart. 
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SIGNAL PLAYER TO 
ENTER SEQUENCE 
LENGTH 


READ SEQUENCE 
LENGTH FROM 
KEYBOARD 


GUESS NUMBER = 0 
ERRORS = 0 


FILL SEQUENCE TABLE 
WITH RANDOM 
NUMBERS BETWEEN 
1 AND9 


READ PLAYER 
KEYSTROKE 


KEYSTROKE = 0? 


Fig. 8.4: Echo Flowchart 


ECHO 


KEY NUMBER 
«10? 


PLAY SEQUENCE 
GUESS NUMBER — 0 
ERRORS = 0 


KEY NUMBER = 
STORED VALUE 


INCREMENT ERRORS 


LIGHT LED (KEY 
PLAY LOW TONE NUMBER) PLAY 
TONE (KEY NUMBER) 


INCREMENT GUESS 
NUMBER 


13 


GUESS 
NUMBER — 
SEQUENCE 
LENGTH 


DISPLAY NUMBER OF 
ERRORS, PLAY 
DESCENDING TONES 


GUESS NUMBER = 0 
ERRORS = 0 


ERRORS = 0? 


17 


LIGHT ALL LEDS 
PLAY ASCENDING 
TONES 


15 


Fig. 8.4: Echo Flowchart (Continued) 
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10. If the guess was correct, we branch right on the flowchart to 
step 11. 

11. Since the key pressed matches the value stored in memory, the 
corresponding LED on the Games Board is lit, and the tone 
corresponding to the key that has been pressed is played. 

12. The guessed number is incremented, and then it is compared to 
the maximum length of the sequence to be guessed. 

13. A check is made to see if the maximum length of the sequence 
has been reached. If it has not, a branch occurs back to step 5 
on the flowchart, and the next keystroke is obtained. If the 
maximum length of the sequence has been reached, we proceed 
down the flowchart to the box labeled 14. 

14. The total number of errors made by the player is checked. The 
variable ERRORS is tested against the value “0.7 If it is **0"' it 
is a winning situation and a branch occurs to box 15. 

15. All LEDs on the board are lit, a sequence of ascending tones is 
played, and a branch occurs back to the beginning of the game. 

Let us now go back to box 14. If the number of errors was greater 
than zero, this is a ‘‘lose’’ situation and a branch occurs to box 16. 

16. The number of errors is displayed, and a sequence of descend- 

ing tones Is played. 

17. All variables are reset to 0, and a branch occurs to box 5, giving 
the player another chance to guess the series. 

Now we shall turn our attention back to box 10 on the flowchart, 
where the value of the key was being tested against the stored value. 
We will assume this time that the guess was wrong, and branch to the 
left of box 10. 

18. The number of errors made by the player is incremented by 

one. 

19. A low tone is played to indicate the losing situation. The pro- 
gram then branches back to box 12 and proceeds as before. 


THE PROGRAM 


The complete program appears in Figure 5.1. The program uses two 
tables, and several variables. The two tables are NOTAB used to 
specify the note frequencies, and DURTAB used to specify the note 
durations. Both of these tables were introduced in Chapter 2, and will 
not be described here. Essentially, they provide the delay constants re- 
quired to implement a note of the appropriate frequency and to play it 
for the appropriate length of time. Note that it is possible to modify 


144 


* LOC 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0009 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0200 
0200 
0202 
0205 
0208 
0208 
озот 
0210 
0212 
0214 
0217 
0219 


СОЛЕ 


LINE 


ў ‘ECHO’ 

3FATTERN/TOME RECALL ANE ESF TEST PROGRAM, 
3THE USER GUESSES ^ FATTERN OF LIT LETS ANT 
$THEIR ASSOCIATED TONES. THE TONE/LIGHT 
$COMBINATION CAN RE PLAYED S0 THAT THE USER 
3MUST REMEMRER IT AN 

; OPERATING TH 

$THE STARTING ADUR 

$THE BOTTOM ROW OF 

#FOR FROGRAM STATU 


:18 "EXPECTING THE USER | 

ОҒ THE SEQUENCE 

3THE LED SECONI FROM THE © 

3THAT THE PROGRAM EXPECTS 

ITHE СОММАМП TO RESTART TH 

ATHE COMMAND TO PLAY THE SEQUE 

ITHE KEYS 1-9 ARE ASSOCIATED WITH THE 
PRLEYIS 1-9. 

FLOORING AT THE SEQUENCE WHILE IN THE МІНЕ 
$0F GUESSING IT WILL PREY TOUS 
*GUESSES (RESET BEND WII 2 TO 99. 
AFTER A WIN? THE PRO 


;LINKAGES! 
GETKEY = $100 


; 
$UARIABLE STOR^GES: 
$00 FNUMBER 
$01 NUM 
$ (WHERE THE USER 
= $02 NUMRE 
$ GUESSING CURRENT 


= $06 


ORLA = $6003 
FORTIE = $6000 
DIRIR = $A002 
= $NO0O4 
2 VIA #3 ADDRESSES 
* %АС00 
= $6602 


Ж = $200 


, 
START LTA 44FF FSET UP UATA DITRECTTON REGISTERS, 
STA ПЕКЛА 
STA DIRIE 
STA RNR 
LEA ж PELEAR VARIABLE STORAGES 
STN FORT! Foe AND LEDS 
STA 
STA 
LEA 1 . GET SEEN FOR КМ f GEN. 
STA КМП FANT STORE IN RNE SCRATCH, 
STA RNYMA 
LI #2010 TURN LET #10 ON TA TNUTCATE 
STA PORTIS NEEL FOR LENGTH INP! 
INGREY JSR GETREY ;GET LENGTH OF SERIES. 
CMF + Е IT 9 ? 
BEQ ПІОКЕҮ ТЕ БЕТ ANOTHER, 
CMF EATER THAN 9? 
ЕРІ. DIGNEY $IF.YES» GET ANOTHER, 
STA DIGITS sSAVE VALIN LENGTH 


Fig. 8.5: Echo Program 
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^ TAX FUSE LENGTH-1 AS INDEX FOR FILLING. +-+ 
CA ПЕХ $e SERIES W/RANDOM VALUES. 
86 05 FILL STX TEMF САМЕ X FROM 'RANDOM' 
20 E7 02 JSR RANDOM 
A6 05 LIX ТЕМЕ RESTORE X 
F8 SET $O A DEIMAL ADJUST 
18 CLE 
69 90 ALC #0 
na CL. TI 
29 OF ANI ЖФОҒ REMOVE UPPER MYRRLE 50 

#NUMBER IS “10 

FO FO REQ FILL Ж CAN'T BE ZERO. 
95 06 STA TABLE;X STORE f IN TABLE 
са ТЕХ $DECREMENT FOR NEXT 
10 ER BFL FILL $;LOOF IF NOT ГОМЕ 
^9 00 KEY LOA #0 sLEAR LEDS 0157 
8n 01 AO STA FORTIA 0158 
A? 04 LDA #%0100 ;$TURN INPUT INDICATOR QM. 0159 
8n 00 AO STA FORTIR 0160 
20 00 01 JSR GETNEY СЕТ GUESS OR FLAY CME, 0161 
C9 00 CMP #0 SIS IT 0? 0162 
FO AR STRTJF REG START FIF YES: RESTART. 
C9 OA CMP #10 FNUMBER 4 10 ? 
30 22 RMI EVAL ;IF YES; EVALUATE GUESS. 0165 


D 0166 
ROUTINE TO DISPLAY SERIES TO ВЕ GUESSED BY 0167 
$LIGHTING LENS ANI! PLAYING TONES IN SEQUENCE. 0168 
2 ; 0169 
0099 0259 А? 00 SHOW — LIX Я 0170 
0100 025Е 84 01 STX $CLEAR ALL CURRENT GUESSES. 0171 
0101 0250 86 02 STX CLEAR CURRENT ERRORS. 0172 
0102 O25F BS 06 SHOULF LIA TABLE» X $GET XTH ENTRY IN SERIES TABLE. 0173 
0103 0261 86 05 STX TEMP $SAVE X 0174 
0104 0263 20 CF 02 JSR LIGHT SLIGHT L 0175 
0105 0266 20 FA 02 JSR PLAY SPLAY TON 0176 
0106 0269 АО FF LIY 4$FF $SET LOOP CNTR. FOR DELAY 0177 
0107 026R 66 03 DELAY ROR DUR SWASTE TIME 0178 
0108 0260 26 03 ROL DUR 0179 
0109 O26F 88 ПЕҮ COUNT DOWN... 0180 
0110 0270 LO F? BNE DELAY IF NOT DONE» LOOF AGAIN. 0181 
0111 0272 46 05 LUX ТЕМЕ $F (E 
0112 0274 ЕВ INX FIN SHOW NEXT 0183 
0113 0275 £4 00 CPX DIGITS $ MIG 0184 
0114 0277 10 Eb ЕМЕ SHOWLF SIF NOT» 0185 
0115 0279 FO C9 REQ KEY  $IIDME: GET NEXT IMFUT, 0186 


0187 
0188 
0189 


027B % 
3ROUTIME TO EVALUATE 


GUES OF PLAYER. 


0119 O27R AS 01 EVAL. LEX GESNO Ў ВЕТ NUMRER OF GUE. 0190 
0120 0270 5 06 CMF t pIGIT? 0191 
0121 O27F ҒО ОП REG . 0192 
0122 0281 Её 02 WRONG INC ERRS WRONG» ANOTHER ERROR. 0193 
2 #480 P DURATION FOR LOW TONE TO INDICATE 0194 

ПОК 0195 

0196 

0197 

0198 


0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 


CORECT $UALIDATE “CORRECT GUESS... 


ЕМІСНК | SONE MORE GUESS TAKEN, 


FANY ERROR 
ЎТЕ NOT; FLAYER WINS, 

SHOW NUMBER OF ERRORS. 
$FLAY 8 DESCENDING TONES 


LOSE 


LOSELF 


Echo Program (Continued) 


0209 
02CR 
o2ch 
O2CF 
02CF 
02CF 


O2CF 
o2no 
o2ni 
0203 
0216 
0217 
0208 
0219 
[0620-1 
O2RE 
02Е0 
O2E2 
O2E5 
02E6 
O2E7 
O2E7 
02Е7 


02Е7 
02Е8 
O2EA 
02ЕС 
02ЕЕ 
02Ғ0 
02F2 
02Ғ4 
02F6 
O2F7 
O2F9 
озға 
O2FA 
O2FA 
O2FA 
O2FA 
ORFA 
O2FA 
O02FR 
O2FC 
O2FF 
0301 
0304 
0306 
0308 
030k 
0зоп 
O30F 
0310 


с» 
no 
FO 


00 
90 


ЕС 
01 
05 
01 
90 


27 
03 
1E 
04 
00 
90 
03 
04 


ғо 


^0 


^0 


оз 


05 


AC 


А 


ROUTINE 
$THE NUMBER F 
$THE ACCUMULATOR, 


, 
LIGHT 


LTSHFT 


LTCC 


$ 


3RANDOM NUMBER GENERATOR: 
#RANDOM NUMBER 


; 
RANIIOM 


КМИР 


, 

3ROUTINE TO PLAY TONE 
ЗІМ RY ACCUM, Ai 
;PLAÓY TONE WHOSE LENGTH 16 
FIN ACCUMULATOR, 


Н 


PLAY 


PLY TON 


FLL 


FHA 
TAY 


SEC 
па 
Anc 
ALC 
STA 
LEX 
LIA 
STA 
IEX 
REL 
RTS 


TAY 
ПЕҮ 
LIA 
STA 
LIA 
STA 
LEA 
STA 
LEX 
LIY 
NEY 
CLC 
ЕСС 


Fig. 8.5: Echo Program (Continued) 


;OMINLF 


TO LIGHT NTH LET 


#10 


STRTJF FUSE NOURI. 


“JME FOR 


» WH 
AS A FARAME 


М 18 
NR IN 


En 


ISAVE A 
$ A AS COUNTER IN Y 
#0 $ DAR A FOR BIT SHIFT 
FORTIK EAR HI LETS. 
3GENERATE HI ВІТ TO SHIFT LEFT, 
^ ;MOUE HI RIT LEFT, 
$HECREMENT COUNTER 
LTSHFT $SHIFTS IINE? 
PORTIA #STORE CORRECT РАТТЕКМ 
LTCC 3ВІТ 9 NOT HI» DONE. 
#1 
FORTIK ЭТЦЕМ LEE 9 ON. 


$RESTORE A 
PRONE. 


"RETURNS. W/ NEW 
IN а. 


RNIHMi 
RNIMA 
RNIMS 
RND 

#4 
RNI» X 
RNE1»X 


RNIILF 


IF EN 


SUSE TONES AS INDEX... 
ФПЕСКЕМЕМТ TO MATCH TARLES 
PURTA: Y $€ DURATION FOR TO 
TUR =F SAV 
NOTAR” Y 
FREQ 
#0 


м. 


CONST FOR TONER N 


1.0, 


г 


FORT3 


ШІК ;GET 


А 
3WASTE 


TIME 
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A few other memory locations are reserved for passing parameters 


ІЮ FA BNE FLL ПОР FOR DELAY x 1 1 1 1 

49 FF EOR AEE SEDHBLEMENT PORT to subroutines or as scratch-pad storage. They will be described within 

87 00 AC STA FORTIK 1 1 

CA DEX $COUNT TIOWN BURATION... the context of the associated routines. В ы ` 

Hon PNE he Pa FO NOTE IVER: As usual, the program starts by setting the data direction registers 
а ыз Le. 


; for Port 1A, Port 1B and Port 3B to an output configuration: 
TARILE FOR NOTE FREQUENCIES. 


C9 NOTAR BRYTE $95 ВЕУ FAP 7 $967 HBE $7Ev 570: $549 $5E START LDA #$FF 
E: STA DDRIA 
9% STA DDRIB 
7E STA DDR3B 
64 

SE 


Next, all LEDs on the board are turned off: 


; 
STABLE FOR NOTE DURATIONS. 


y 


0: ШОКТАВ BYTE $6R»$72» $80 + SBF 9 $949 FAN: ERF ФП?» $EA 

о LDA #0 

0 ) STA PORTIA 

: 

53 and the two variables, ЕКК5 and GESNO, аге set to 0: 
03 + END! 

SYMBOL TABLE STA ERRS 

SYMBOL ^ VALUE STA GESNO 


CORECT 028E A003 
DELAY 024E 0000 
DnURTAE 0327 0294 


The random number generator is primed by obtaining а seed апа stor- 


FILL 022F O30F 000 В : Е 
BEND, “0005 O2CE ing it at locations RND + 1 and RND + 4: 
LOSE 0242 LTCC 
NOTAR 031E PLYTON 4001 
РОКТІВ А000 FORT3E RANDOM 000Е А 
RNDLE O02F2 SHOW 0259 SHOULF F 0200 LDA ТІСІ, Read timer counter. 
STRTJF 0253 ТІСІ A004  TARL 0006 ТЕМЕ 0005 
WIN 0287  WINLP озс1 WRONG 0281 STARND + 1 
END OF ASSEMBLY 
STA RND + 4 


Fig. 8.5: Echo P Continued er 
ы etinm келен) The game is now ready to start. LED 10 must be turned on to indicate 


оре Р ; : : to the player that the game is ready: 
the difficulty of the game by increasing or decreasing the duration 


during which each note is played. Clearly, reducing the duration 
makes the game more difficult. Increasing the duration will usually 
make it easier, up to a point. You are encouraged to try variations. 
The main variables used by the program are the following: 
DIGITS contains the number of digits in the sequence to be 
recognized. 
GESNO indicates the number of the current guess, i.e., which of the 
notes in the series the user is attempting to recognize. 
ERRS indicates the number of errors made by the player so far. 
TABLE is the table containing the sequence to be recognized. 


LDA #010 Pattern for LED 10 
STA PORTIB Specify length 


The keyboard is scanned for the player input using the usual GETKEY 
subroutine (described in Chapter 1): 


DIGKEY JSR GETKEY 


It is checked for the value “0”: 
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CMP #0 


BEQ DIGKEY If = 0, get another one 


If the entry was “0,” the program waits for another keystroke. Other- 
wise, it is compared to the value 10: 


CMP #10 Sequence longer than 9 


BPL DIGKEY 


If the sequence length is greater than 9, it is also rejected. Accepting 
only valid inputs, using a bracket is known as **treasonableness 
testing" or ‘‘bracket-filtering.”’ 
If all is fine, the length of the sequence to be recognized is stored at 
memory location DIGITS: 
STA DIGITS Length of sequence 


A running pointer is then computed and stored at location TEMP. It 
is equal to the previous length minus 1: 


TAX Use X for computation 
DEX Decrement 
FILL STX TEMP 


The RANDOM subroutine is then called to provide a first random 
number: 


JSR RANDOM 


The position pointer in the series of notes now being generated is 
retrieved from TEMP, and stored in index register X in anticipation 
of storing the new random number in TABLE: 


LDX TEMP 


The value of the random number contained in the accumulator is then 
converted to a decimal value between 0 and 9. This process can be per- 
formed in various ways. Here, we take advantage of the special 
decimal mode available on the 6502. The decimal mode is set by speci- 
fying: 

SED Set decimal mode 
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Note that the carry flag must be cleared, prior to an addition: 
CLC Clear carry 


The trick used here is to add “0” to the random number contained in 
the accumulator. The result in the right part of A is guaranteed to be a 
digit between 0 and 9, since we are operating in the decimal mode. 
Naturally, any other number could also be added to A to make its con- 
tents ‘‘decimal’’; however, this would change the distribution of the 
random numbers, and some numbers in the series such as 0, 1, and 2 
. might never appear. Once this conversion has been performed, the 
- decimal mode is simply turned off: 


ADC #0 Add ‘‘0’’ in decimal mode 
CLD Clear decimal mode 


: This is a powerful 6502 facility used to a great advantage in this in- 
_ stance. In order to guarantee that the result left in А be a decimal 
number between 0 and 9, the upper nibble of the byte is removed by 
masking it off: 


AND $#0F 


. Finally, a value of “0” is not allowed, and a new number must be ob- 
tained if this is the current value of the accumulator: 


BEQ FILL 


Exercise 8-2: Could we avoid this special case for “0” by adding а 
value other than “0” to А above? 


If this is not the current value of the accumulator, we have a decimal 
number between 1 and 9 that is reasonably random, which can now 
be stored in the table. Remember that index register X has been 
preloaded with the current number's position in the sequence (re- 
trieved from memory location TEMP). It can be used, as is, as an in- 
dex: 

STA TABLE,X Store # in table 

The number pointer is then decremented in anticipation of the next 
iteration: 
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DEX 


and the loop is reentered until the table of random numbers becomes 
full: 


BPL FILL 


We are now ready to play. LED 12 will be turned on, signaling to the 
player that he or she may enter a guess: 


KEY - LDA #0 
STA PORTIA 
LDA #%0100 
STA PORTIB 


The player’s guess is then read from the keyboard: 
JSR GETKEY Get guess 


It must be tested for ‘‘0’’ or for an alphabetic value. Let us test for 
“0”; 


CMP #0 Is it 0? 
STRTJP BEQ START If yes, restart 


If it is “0,” the game is restarted, and a branch occurs to location 
START. If it is not ‘‘0,’’ we must check for an alphabetic character: 


CMP #10 Number «10? 
BMI EVAL If yes, evaluate correctness 


If the value of the input keystroke is less than ten, it is a guess and is 
evaluated with the EVAL routine. Otherwise, the program executes 
the SHOW routine to display the series. 


The SHOW Routine 


We will assume here that an alphabetic key has been pressed. BMI 
fails, and we enter the SHOW routine. This routine plays the 
computer-generated tune and lights up the corresponding sequence of 
LEDs. Also, whenever this routine is entered, the guessing sequence is 
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started and the temporary variables are reset to 0: 


SHOW LDX #0 
STX GESNO 


STX ERRS Reset all variables 


The first table entry is obtained, the corresponding LED is lit, and the 
corresponding tone is played: 


SHOWLP LDA TABLE,X Get Xth entry in table 
STX TEMP Save X 
JSR LIGHT Light LED # TABLE (X) 


JSR PLAY Play tone # TABLE (X) 


An internote delay is then implemented using Y as the loop counter 
and two dummy instructions to extend the delay: 


LDY #$FF 
DELAY ROR DUR Dummy instruction 
ROL DUR Dummy 
DEY Count down 
BNE DELAY End of loop test 


We are now ready to perform the same operation for the next note in 
the current table. The index pointer is restored and incremented: 


LDX TEMP Restore X 
INX Increment it 


It is then compared to the maximum number of digits stored in the 
table. If the maximum has been reached, the display operation is com- 
plete and we go back to label KEY. Otherwise, the next tone is sound- 
ed, and we go back to label SHOWLP: 


CPX DIGITS All digits shown? 
BNE SHOWLP 
BEQ KEY Done, get next input 


The EVAL Routine 


Let us now examine the routine which evaluates the guess of the 
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player. It is the EVAL routine. The value of the corresponding entry in 
TABLE is obtained and compared to the player's input: 


EVAL LDX GESNO Load guess number into X 
CMP TABLE,X Compare guess to number 
BEQ CORECT If correct, tell player 


If there is a match, a branch occurs to location CORECT; otherwise, 
the program proceeds to label WRONG. Let us examine this case. If 
the guess is wrong, one more error is recorded: 


WRONG INC ERRS 
A low tone is played: 


LDA #$80 
STA DUR 
LDA 4$FF 
JSR PLYTON Play it 


A jump then occurs to location ENDCHK: 
BEQ ENDCHK Check for end of game 


Exercise 8-3: Examine the BEQ instruction above. Will it always result 
in a jump to label ENDCHK? (Hint: determine whether or not the Z 
bit will be set at this point.) 


Exercise 8-4: What are the merits of using BEQ (above) versus JMP? 


Now we shall consider what happens in the case of a correct guess. 
If the guess is correct, we light up the corresponding LED and play the 
corresponding tone. Both subroutines assume that the accumulator 
contains the specified number: 


CORECT JSR LIGHT 
JSR PLAY 


Turn on LED 
Play note to confirm 


We must now determine whether we have reached the end of a se- 


quence or not, and take the appropriate action. The number of 
guesses is incremented and compared to the maximum length of the 
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ENDCHK INC GESNO One more guess 
LDA DIGITS 
CMP GESNO All digits guessed? 
BNE KEY If not, get next key closure 


If we are not done yet, a branch occurs back to label KEY. Otherwise, 
we have reached the end of a game and must signal either a ‘‘win’’ or a 


“lose” situation. The number of errors is checked to determine this: 


LDA ERRS Get number of errors 
CMP #0 No error? 
BEQ WIN If not, player wins 


If a “win” is identified, a branch occurs to label WIN. This will be 


described below. Let us examine now what happens in the case of a 


“lose”: 


LOSE JSR LIGHT Show number of errors 


The number of errors is displayed by lighting up the corresponding 


LED. Remember that the accumulator was conditioned prior to enter- 
ing this routine and contained the value of ERRS, i.e., the number of 
errors so far. 

Next, a sequence of eight descending tones is played. The top of the 
stack is used to contain the remaining number of tones to be played: 


LDA #9 Play 8 descending tones 
LOSELP PHA Save A on stack 

JSR PLAY Play tone 

PLA Restore A 


Once a tone has been played, the remaining number of tones to be 
played is decremented by one and tested for 40”; 


SEC Set carry (for subtract) 
SBC £1 Subtract one 
BNE LOSELP 


Exercise 8-5: Note how the top of the stack has been used as a tem- 
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porary scratch location. Can you suggest an alternative way to achieve 
the same result without using the stack? 


BNE WINLP 


- Otherwise, a new game is started: 
Exercise 8-6: Discuss the relative merits of using the stack versus using 
other techniques to provide temporary working locations for the pro- 
gram. Are there potential dangers inherent in using the stack? 


BEQ STRTJP Double jump for restart 


f . This completes the description of the main program. Three 
Eight successive tones are played. Then the two work variables, subroutines are used by this program. They will now be described. 
GESNO and ERRS, are reset to “0,” and a branch occurs back to the 
beginning of the program: 


The Subroutines 


STA GESNO Clear variables 
STA ERRS LIGHT Subroutine 
BEQ KEY Get next guess sequence 


This subroutine assumes that the accumulator contains the number 
of the LED to be lit. The subroutine will light up the appropriate LED 
on the Games Board. It will achieve this result by writing a ‘‘1’’ in the 
appropriate position in the accumulator and then sending it to the ap- 
propriate output port. Either Port 1A will be used (for LEDs ] through 


Let us examine now what happens in a **win"' situation. All LEDs on 
the Games Board are turned on simultaneously: 


Nu 2. А It is а win: turn all LEDs on 8) or Port 1B (for LED 9). The “17 bit is written in the appropriate 
STA PORTIB position in the accumulator by performing a sequence of shifts. The 


number of shifts is equal to the position of the LED to be lit. Index 
register Y is used as a shift-counter. The number of the LED to be lit is 
saved in the stack at the beginning of the subroutine and will be 
restored upon exit. Note that this is a classic way to preserve the con- 
tents of an essential register during subroutine execution so that the 
contents of the accumulator will be unchanged upon subroutine exit. 
If this was not the case, the calling program would have to explicitly 


Next, a sequence of eight ascending tones is played. The tone number 
is stored in the accumulator and will be used as an index by the PLAY 
subroutine to generate an appropriate note. As before, the top of the 
stack is used to provide working storage: 


LDA #1 A will be incremented to 9 preserve the contents of the accumulator prior to calling the LIGHT 
WINLP PHA Save A on the stack subroutine. Then it might have to load it back into the accumulator 
Ч У prior to using another опе of the routines, such as the PLAY routine. 


Because LIGHT and PLAY are normally used in sequence, it is more 
efficient to make it the subroutine's responsibility to save the contents 
The number of tones which have been played is then incremented by 1 of the accumulator. Let us do it: 


and compared to the maximum value of 9: 


LIGHT PHA Preserve A 
CLC Clear carry for addition 
ADC #01 The shift-counter is then set up: 
CMP #10 


TAY Use Y as shift counter 
As long as the maximum of 9 has not been reached, a branch occurs 


back to label WINLP: and the accumulator is initialized to 409: 
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LDA #0 Clear A 
LED 9 is turned off in case it was lit: 

STA PORTIB 
The shifting loop is then implemented. The carry bit is initially set to 


**1," and it will be shifted left in the accumulator as many times as 
necessary: 


SEC Set carry 
LTSHFT ROL A 

DEY 

BNE LTSHFT 


The correct bit pattern is now contained in the accumulator and dis- 
played on the Games Board: 


STA PORTIA 


However, one special case may arise: if LED 9 has been specified, the 


contents of the accumulator are “0” at this point, but the carry bit has 
been set to **1"' by the last shift. This case must be explicitly tested for: 


BCC LTCC Is bit 9 set? 


If this situation exists, the accumulator must be set to the value 
“00000001,” and output to Port 1B: 


LDA #1 


STA PORTIB Turn LED 9 on 


We finally exit from the routine without forgetting to restore the ac- 
cumulator from the stack where it had been saved: 


LTCC PLA Restore A 
RTS 


Exercise 8-7: List the registers destroyed or altered by this subroutine 
every time it is executed. 
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Exercise 8-8: Assume that register Y must be left unchanged upon 
leaving this subroutine. What are the required program changes, if 
any? 


RANDOM Subroutine 


This subroutine generates a new random number and returns its 


- value іп A. Its operation has been described in Chapter 4. 


PLAY Subroutine 


This subroutine will normally play the tone corresponding to the 


number contained in the accumulator. Optionally, it may be entered 
at location PLYTON and will then play the tone corresponding to the 


frequency set by the accumulator and corresponding to the length 
specified by the contents of memory location DUR. Let us examine it. 

Index register Y is used as an index to the two tables required to 
determine the note duration and the note frequency. In this game, up 
to 9 notes may be played, corresponding to LEDs and keys 1 through 
9. Index register Y is first conditioned: 


PLAY TAY Use tone # as index 
DEY Decrement to internal value 


Note that the index register must be decremented by one. This is 
because key 1 corresponds to entry number 0 in the table, and so on. 
The duration and frequencies are obtained from tables DURTAB and 
NOTAB using the indexed addressing mode. They are stored respec- 
tively at locations DUR and FREQ: 


LDA DURTAB,Y Get duration 


STA DUR Save it 
LDA NOTAB,Y Get frequency 
PLYTON STA FREQ Save it 


The speaker is then turned off: 


LDA #0 


STA PORT3B Set speaker Port 3B 


Two loops will now be implemented. An inner loop will use register Y 
as the delay-counter to implement the correct frequency for the note. 


159 


ECHO 


FREQUENCY DURATION 
CONSTANT CONSTANT 
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Register X will be used in the outer loop and will generate the tone for - 
the appropriate duration of time. 
Let us condition the two counter registers: 


1 
LDX DUR Get duration in # of % cycles 2 
FL2 LDY FREQ Get frequency 3 
4 
Next, let us implement the inner loop delay: 5 
6 
Ел DEY 7 
CLC Waste time 8 
BCC *+2 9 
BNE FL1 Delay loop 


Fig. 8.6: Frequency and Duration Constants 


Note that two ‘‘do-nothing”’ instructions have been placed inside the 
loop to generate a longer delay. At the end of this inner loop delay the 
contents of the output port connected to the loudspeaker are com- 
plemented in order to generate a square wave. 


EOR #$FF Complement port 


Note that, once more, EOR #$FF is used to complement the contents 
of a register. 


STA PORT3B 
The outer loop can then be completed: 


DEX 
BNE FL2 Outer loop 
RTS 


SUMMARY 


This program demonstrates how simple it is to implement electronic 
keyboard games that sound for input/output and that are challenging 
to adult players. 


Exercise 8-9: The duration and frequency constants for the nine notes 
are shown in Figure 8.6. What are the actual frequencies generated by 
the program? 


160 161 


9 
MINDBENDER 


THE RULES 


This game is inspired by the commercial game of MasterMind 
(trademarked by the manufacturer, Invicta Plastics, Ltd.). In this 
game, one or more players compete against the computer (and against 
each other). The computer generates a sequence of digits — for exam- 
ple, a sequence of five digits between “0” and “9” — and the player 
attempts to guess the sequence of five numbers in the correct order. 
The computer responds by telling the player how many of the digits 
have been guessed accurately, and how many were guessed in their 
correct location in the numerical sequence. 

LEDs 1 through 9 on the Games Board are used to display the com- 
puter's response. A blinking LED is used to indicate that the player's 
guess contains a correct digit which is located in the right position in 
the sequence. A steadily lit LED is used to indicate a digit correctly 
guessed but appearing out of sequence. Several players can match 
their skills against each other. For a given complexity level — say, for 
guessing a sequence of seven digits—the player that can correctly guess 
the number sequence with the fewest guesses is the winner. 

The game may also be played with a handicap whereby a given 
player has to guess a sequence of n digits while the other player has to 
guess a sequence of only n — 1 digits. This is a serious handicap, since 
increasing the level of difficulty by one is quite significant. 


A TYPICAL GAME 


Both audio and visual feedback are used to play this game. 
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'he Audio Feedback 


Every time that a player has entered his or her sequence of guesses, 


he computer responds by sounding a specific tone. A low tone in- 


icates an incorrect guess; a high tone indicates that the sequence was 
uessed correctly. 


he Visual Feedback 


At the beginning of each game, LED #10 is lit, requesting the length 
f the sequence to be guessed. This is shown in Figure 9.1. The player 
hen specifies the sequence length as a number from 1 through 9. Any 
ther input will be ignored. 


Fig. 9.1: Enter Length of Sequence 


As soon as the length has been specified, for example, let's say the 
length “27 has been selected, LED #11 lights up. This means ‘‘Enter 
your guess."' (See Figure 9.2.) At this point the player enters his or her 
guess as a sequence of two digits. Let us now play a game. 


| 


ФӨССОЯНСООСО 


11 12 13 14 15 


Fig. 9.2: Enter Your Guess 


The player types in the sequence ‘‘1,2.’’ A low tone sounds, LEDs 
10 and 11 go out briefly, but nothing else happens. The situation is in- 
dicated in Figure 9.3. Since LEDs 1 through 9 are blank, there is no 
correct digit in the guess. Digits ‘‘1’’ and “2” must be eliminated. Let 
us try another guess. 

We type “3,4.” A low tone sounds, but this time LED #1 is steadily 
on, as indicated in Figure 9.4. From this we know that either “3” or 
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Fig. 9.3: Player Enters Wrong Guess 


15 


Fig. 9.4: One Correct Digit in the Correct Position 


“47 is one of the digits and that it belongs in the other position. Con- 
versely, the sequence “4,3,” must have one good digit in the right 
position. Just to be sure let us perform a test. 

We now type “4,3.” A low tone sounds, indicating that the se- 
quence is not correct, but this time LED #1 is on and blinking. 
This proves that our reasoning is correct, and we proceed. 

We now try ‘‘4,5.’’ A high-pitched sound is heard and LEDs 1 and 2 
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light up briefly, indicating that those digits have been guessed correct- 
ly and that we have won our first game. 

At the end of the game, the situation reverts to the one at the begin- 
ning, as indicated in Figure 9.1. Note that typing in a value other than 
“1” through <9” as a guess will restart the game. 

There is a peculiarity to the game: if the number to be guessed con- 
tains two identical digits, and the player enters this particular digit in 
one of its two correct locations, the computer response will indicate 
this digit as being both the right digit in the right place and the right 
digit in the wrong place! 


THE ALGORITHM 


The flowchart for Mindbender is shown in Figure 9.5. Interrupts are 
used to blink the LEDs. Interrupts will be generated automatically by 
the programmable interval timer of VIA #1 at approximately 1/15th- 
of-a-second intervals. 

Referring to Figure 9.5, all of the required registers and memory loca- 
tions will be initialized first. Next (box 2 on the flowchart), the length 
of the sequence to be guessed is read from the keyboard. The validity 
bracket 17 to **9" is used to ‘ег’? the player's input. 

Next, a random sequence must be generated. In box 3 of the 
flowchart, a sequence of random numbers is generated and stored ina 
digit table, starting at address DIGO. 

In box 5, the computer's sequence of numbers is compared — one 
number at a time — with the player’s guess. The algorithm takes one 
digit from the computer sequence and matches it in order against 
every digit of the player sequence. As we have already indicated, this 
may result in lighting up two LEDs, if ever there are two or more iden- 
tical digits in the number to be guessed and the player has specified 
only one digit. One digit may be flagged as being in the right place, 
and also as being correct but in the wrong location(s). 

Note that, alternatively, another comparison algorithm could be 
used in which each digit of the player’s sequence is compared in turn 
with each digit of the computer’s sequence. 

Once the digits have been compared, the resulting score is displayed 
on the LEDs (box 6). Finally, a test is made for a win situation (box 7), 
and the appropriate sound is generated (box 8). 
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MINDBENDER 
INITIALIZE 


READ LENGTH OF 
SEQUENCE — DIGITS 


GENERATE RANDOM 
NUMBERS AND STORE 
IN DIGIT TABLE 


COMPARE GUESS 
WITH CORRECT 
NUMBERS 


DISPLAY SCORE 
CORRECT DIGITS 
AND CORRECT PLACE 


LOW SOUND HIGH SOUND 


Fig. 9.5: Mindbender Flowchart 
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THE PROGRAM 
Data Structures 


Two tables of nine entries are used to store, respectively, the com- 
puter's sequence and the player's sequence. They are stored starting at 
addresses DIGO and ENTRYO. (See Figure 9.6.) 


The Variables 


Page 0 is used, as usual, to provide additional working registers, 
i.e., to store the working variables. The use of page 0 is indicated as a 
“memory тар” in Figure 9.6. The first nine locations are used for the 
program variables. The function of each variable is indicated in the il- 
lustration and will be described in detail as we examine the program 
below. Locations ‘‘09’’ through ‘‘OE’’ are reserved for the random 
table used to generate the random numbers. Locations “ОЕ” through 
**17" are used for the DIGO table used to store the computer- 
generated sequence of random numbers. Finally, locations “18” and 
following are used to contain the sequence of digits typed by the user. 

The memory locations used for addressing input/output and for in- 
terrupt vectoring are shown in Figure 9.7. Locations A000" through 
** A005"! are used to address Ports А and B of VIA #1 as well as timer 
T1. The memory map for a 6522 VIA is shown in Figure 9.8. 

Location 'AO0B"' is used to access the auxiliary control register, 
while location **AO0E"' accesses the interrupt-enable register. For a 
detailed description of these registers the reader is referred to the 6502 
Applications Book (reference D302). 

Memory locations “А67Е” and “А67Е” are used to set up the in- 
terrupt vector. The starting address of the interrupt-handling routine 
will be stored at this memory location. In our program, this will be ad- 
dress **03EA."' This is the routine in charge of blinking the LEDs. It 
will be described below. Finally, Port 3 is addressed at memory loca- 
tions “АС00” and “АС02.? 


Program Implementation 


A detailed flowchart for the Mindbender program is shown in 
Figure 9.9. Let us now examine the program itself. (See Figure 9.13.) 

The initialization block resides at memory addresses 0200-0239 hex- 
adecimal and conditions interrupts and I/O. First, interrupts are con- 
ditioned. Prior to modifying the interrupt vector which resides at ad- 
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DIGO 


» [ERIT 
o^ DE 
se DI 


o DD 
х E 
А 


6 2 


17 


ENTRYO 18 1. 
лел 
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Pattern for Blinking LEDs on 


» 


Pattern for Blinking LEDs on 


с 


Tone Frequency Constant 


Correct Digits Correct Place 


Random Numbers 


Up to 9 Digits of Numbers to Gues: 


Up to 9 Digits 


Fig. 9.6: Low Memory Map 


а 


IRQVECL 
A67F IRQVECH 


Fig. 9.7: High Memory Map 
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00 ORB (PBO TO PB7) 1/O data, port A 
01 ORA (PAO TO PA7) Used for control-affects handshake 
02 DDRB 
Data direction registers 
03 DDRA 
04 TIL-L/TIC-L Counter-low 
05 ТІС-Н Counter-high 
Timer 1 
06 TIL-L Latch-low 
07 TIL-H Latch-high 
08 T2L-L/T2C-L Latch-low 
Countei-low Я 
Тітег 2 
09 T2C-H Counter-high 
Function control 
oc PCR (СА1,СА2,СВ2,СВ1) Peripheral 
Interrupt control 


(does not affect handshake) 


Fig. 9.8: 6522 VIA Memory Map 


dresses ‘‘A67E”’ and ‘‘A67F’’ (see Figure 9.7) access to this protected 
area of memory must be authorized. This is performed by the AC- 
CESS subroutine, which is part of the SYM monitor: 


JSR ACCESS 


Next, the new interrupt vector can be loaded at the specified location. 
The value ‘‘03EA”’ is entered at address IRQVEC: 


LDA #$EA Low interrupt vector 
STA IRQVECL 
LDA #$03 High interrupt vector 


STA IRQVECH 
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Now the internal registers of the 6522 VIA #1 must be conditioned 
to set up the interrupts. The interrupt-enable register (IER) will enable 
or disable interrupts. Each bit position in the IER matches the cor- 
responding one in the interrupt flag register (IFR). Whenever a bit 
position is **0,"' the corresponding interrupt is disabled. Bit 7 of IER 
plays a special role. (See Figure 9.10.) When IER bit 7 is ‘‘0,’’ each 
“19 in the remaining bit positions of IER wil clear the corresponding 
enable flag. When IER bit 7 is “1,” each “1” written in IER will play 
its normal role and set an enable. All interrupts are, therefore, disa- 
bled by setting bit 7 to “0” and all remaining bits in the IER to ones: 


LDA #$7F 
STA IER 


Next, bit 6, which corresponds to the timer 1 interrupt, is enabled. In 
order to do this, bit 7 of IER is set to ‘‘1,’’ as is bit 6: 


LDA #$C0 
STA IER 


Next, timer 1 will be set in the ‘‘free-running mode.’’ Remember that, 
with the 6522, the timer can be used in either the ‘‘one-shot’’ mode or 
the ‘“‘free-running mode." Bits 6 and 7 of the auxiliary control 
register are used to select timer 1 operating modes. (See Figure 9.11.) 
In this instance, bit 7 is set to “0” and bit 6 is set to 417: 


LDA 4540 
STA ACR 


Prior to using the timer in the output mode, its counter-register must 
be loaded with a 16-bit value. This value specifies the duration of the 
square pulse to be generated. The maximum value “FFFF” is used 
here: 


LDA #$FF 
STA TILL 
STA TICH 


The actual wave form from timer 1 is shown in Figure 9.12. In order 
to compute the exact duration of the pulse, note that the pulse dura- 


171 


6502 GAMES 


INITIALIZE 
GET KEY NUMBER 
NUMBER DIGITS — TEMP — NUMBER 
KEY NUMBER DIGITS 
TEMP — NUMBER 
DIGITS 
GET KEY NUMBER 
GUESS (TEMP) — 
KEY NUMBER 


TEMP = TEMP —1 


DIGIT (TEMP) = 
RANDOM NUMBER 


TEMP = TEMP —1 


Fig. 9.9: Detailed Mindbender Flowchart 
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TEMP = DIGIT(X) 


CNT = CNT + 1 


CNT} =CNTI +1 


Y = NUMBER N № 


DIGITS? 


X = NUMBER 
DIGITS? 


YES 
LIGHT LEDs 1 CNT! 
THROUGH eun + NO = NUMBER YES 


DIGITS? 


BAD GUESS: 
LOW BEEP WIN: HIGH BEEP 


SET LEDs 1 THROUGH 


CNT 1 TO BLINKING 


Fig. 9.9: Detailed Mindbender Flowchart (Continued) 
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CONTROL 


Fig. 9.10: Interrupt Registers 


tion will alternate between n + 1.5 cycles and n + 2 cycles, where n is 
the initial value loaded in the counter register. 
Next, interrupts are enabled: 


CLI 


and the three ports used by this program are configured in the ap- 
propriate direction: 


STA DDRIA Output 
STA DDRIB Output 
STA DDR3B Output 


All LEDs are then cleared: 


ACR7 
OUTPUT 


ee ee GENERATE TIME OUT INT WHEN T1 LOADED PB7 DISABLED 


1 
ЕЙ (FREE RUN) GENERATE CONTINUOUS INT PB7 DISABLED 
0 GENERATE INT AND OUTPUT PULSE ON PB7 EVERYTIME T1 15 
(ONE-SHOT)| LOADED = ONE-SHOT AND PROGRAMMABLE WIDTH PULSE 


1 GENERATE CONTINUOUS INT АМО SQUARE WAVE 
(FREE RUN) OUTPUT ON PB7 


Fig. 9.11: 6522 Auxiliary Control Register Selects Timer 1 Operating Modes 


174 


MINDBENDER 
М+ 1.5 
(М) (N 1) (0) (.5) 
I 
$2 
WRITE 
TIC-H : = 
PB7 
OUT - 
N + 1.5 CYCLES N + 2 CYCLES 


IRQ 


OUT m ЕЕ ---- 


Fig. 9.12: Timer 1 іп Ғғее Running Mode 


КЕҮІ LDA 40 
STA PORTIA 
STA PORTIB 


and the blink masks are initially set to all O's: 


STA MASKA 
STA MASKB 


LED 10 is now turned on in order to signal to the player that he or she 
should specify the number of digits to be guessed: 


LDA 49500000010 Select LED 10 
STA PORTIB Turn it on 


The key pressed is read using the usual GETKEY routine: 
JSR GETKEY Get # digits 
A software filter is implemented at this point. The value of the key 
read from the keyboard is validated as falling within the range 417 
through “9.7 If itis greater than 9, or less than 1, the entry is ignored: 
CMP #10 
BPL KEYI 


CMP #0 
BEQ KEYI 
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Once validated, the length specified for the sequence is stored at 
memory location DIGITS: 


STA DIGITS 


A sequence of random numbers must now be generated. 


Generating a Sequence of Random Numbers 


The initial random number is obtained from the counter and used to 
start the random number generator. The theory behind this technique 
has been described before. 

Locations RND + 1, RND + 4, and RND + 5 are seeded with the 
same number: 


LDA TILL 

STA RND +1 
STA RND +4 
STA RND+5 


Then a random number is obtained using the RANDOM subroutine: 


LDY DIGITS Get # of digits to guess 
DEY Count to 0 
RAND JSR RANDOM Filling them with values 


The resulting random number is set to a BCD value which guarantees 
that the last digit will be between 0 and 9: 


SED 
ADC #00 Decimal Adjust 
CLD 
It is then truncated to the lower 4 bits: 
AND #$00001111 
Once the appropriate random digit has been obtained, it is saved at 


the next location of the digit table, using index register Y as a running 
pointer: 
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STA DIGO,Y 


The counter Y is then decremented, and the loop executed until all re- 
quired digits have been generated: 


DEY 
BPL RAND 


Collecting the Player’s Guesses 


Index register X will serve as a running pointer for the ENTRY 
table used to collect the player’s guess. It is initialized to the value 
“0,” and stored at memory location XTEMP: 


EXTRA : LDA #0 
STA XTEMP 


Clear pointer 
LEDs 10 and 11 are then turned on to signal the player that he or she 
may enter his or her sequence: 


LDA #3$00000110 
STA PORTIB 


The key pressed by the player is read with the usual GETKEY routine: 
KEY2 JSR GETKEY 


If the key pressed is greater than 9, it is interpreted as a request to 
restart the game: 


CMP #10 
BPL KEYI 


Otherwise, the value of the index register X is retrieved from memory 
location XTEMP and is used to perform an indexed store of the ac- 
cumulator to the appropriate location in the ENTRY table: 


LDX XTEMP 
STAENTRYO,X Store guess in table 


The running pointer is then incremented, and stored back in memory: 
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Otherwise, one more exact match is recorded by incrementing location 


INX 
СМТІ, and the next digit is examined: 


STX XTEMP 


INC CNTI 


Then, the value of the running pointer is compared to the maximum 
BNE NEXTDIG 


number of digits to be fetched from the keyboard and, as long as this 


number is not reached, a loop occurs back to location KEY2: . А 
Let us examine now what happens when no match has occurred. The 


digit (of the number to be guessed) which has just been read and is 
contained in the accumulator should be compared to every digit within 
the ENTRY table. Index register Y is used as a running pointer, and 
the contents of the accumulator are compared in turn to each of the 
digits in ENTRY: 


CPX DIGITS All numbers fetched? 
BNE KEY2 If not, get another 


Once the player has entered his or her sequence, the digits must be 
compared to the computer-generated sequence. In anticipation of the 
display of a possible win the LEDs on the board are blanked and the 


masks are cleared: ENTRYCMP LDY #0 


ENTRYLP CMP ENTRYO,Y 
BNE NEXTENT 


LDX #0 

STX PORTIA | 

ЅТХ РОВТІВ If a match is found, memory location CNT is incremented and the 
STX MASKA next digit is examined: 

STX MASKB 


INC CNT 


Two locations in memory will be used to contain the number of cor- BNE NEXTDIG 


rect digits and the number of correct digits in the correct location. 


They are initially cleared: Otherwise, index register Y is incremented. If the end of the sequence 


is reached, exit occurs to NEXTDIG. Otherwise a branch back occurs 


STX CNT Number of matches to the beginning of the loop at location ENTRYLP: 


STX CNTI Number of correct digits 
NEXTENT INY Increment guess # pointer 


CPY DIGITS All tested? 


Each entry of the DIGO table will now be compared in turn to all en- 
BNE ENTRYLP No: try next one 


tries of the ENTRYO table. Each digit is loaded from the DIGIT table 


and immediately compared to the corresponding ENTRY contents: E 
The next digit in table DIG must then be examined. The running 


pointer for DIG is contained in index register X. It is incremented and 


DIGLP LDA DIGO,X 4 1 
CMP ENTRYO,X compared to its maximum value: 
If it is not the right digit at the right place, there is no exact match. We NEXTDIG INX Increment digit # pointer 
will then check to see if the digit appears at any other place within the CPX DIGITS All digits checked 


ENTRY table: P 
If the limit has not been reached, a branch occurs back to the begin- 


BNE ENTRYCMP ning of the outer loop at location DIGLP: 
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BNE DIGLP 


At this point, we are ready to turn on the LEDs to display the results 
to the player. 


Displaying the Results to the Player 


The total number of LEDs which must be turned on is obtained by 
adding the contents of CNT to СӘТІ: 


CLC Get ready for add 
LDA CNT 
ADC CNTI 


The total is contained in the accumulator and transferred into index 
register Y where it will be used by the LITE routine: 


TAY 
JSR LITE 


The operation of the LITE routine will be described below. Its effect is 
to fill the accumulator with the appropriate number of ones in order 
to turn on the appropriate LEDs. 

The pattern created by the LITE subroutine is then stored in the 
mask: 


STA PORTIA 


For the special case in which the result is 9, the carry bit will have been 
set. This case is explicitly tested: 


BCC CC If carry 0, don't light PBO. 


and if the carry had been set to 1, Port B will be set appropriately so 
that LED #9 is turned on: 


LDA #1 Turn PBO on 
STA PORTIB 


Recall that once masks A and B have been set up, they will 
automatically be used by the interrupt handling routine which will 
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cause the appropriate LEDs to blink. 


CC LDY CNTI 
JSR LITE 
STA MASKA 
BCC TEST 
LDA #01 
STA MASKB 


The program must now test for a win or lose situation. 
Testing for a Win or Lose Situation 


The number of correct digits in the right places is contained in 
CNT1. We will simply compare it to the length of the sequence to be 
guessed: 


TEST LDX CNTI 
CPX DIGITS 


If these numbers are equal, the player has won: 
BEQ WIN 


Otherwise, a low tone will be sounded. The tone duration constant is 
set to **72,"' and its frequency value to “ВЕ”: 


BAD LDA #$72 
STA DUR 
LDA #$BE 
The TONE subroutine is then used to generate the tone, as usual: 
JSR TONE 
Then a return occurs to the beginning of the program: 


BEQ ENTER 


If a win has occurred, a high-pitched tone will be generated. Its dura- 
tion constant is set to “ЕЕ” and its pitch is controlled by setting the 
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frequency constant to “547: 


WIN LDA #$FF 
STA DUR 
LDA #$54 


As usual, the TONE subroutine is used to generate the tone: 
JSR TONE 
The game is then restarted: 


JMP KEYI 


The Subroutines 


Four routines are used by this program. They are: LITE, RAN- 
DOM, TONE, and INTERRUPT HANDLER. The RANDOM and 
TONE routines have been described in previous chapters and will not 
be described again here. 


LITE Subroutine 


When entering this subroutine, index register Y contains the 
number of LEDs which should blink. In order to make them blink it 
is necessary to load the appropriate pattern into the mask patterns 
called MASKA and MASKB. The appropriate number of 1’s has to be 
set in these two locations. A test is first made for the value “0” in Y. 
If that value is found, the accumulator is cleared, as well as the carry 
bit (the carry bit will be used as an indicator for the fact that Y con- 
tained the value ‘‘9’’): 

LITE BNE STRTSH Test Y for zero 
LDA #0 
CLC 
RTS 


Otherwise, the accumulator is initially cleared, and the appropriate 
number of 1’s is shifted left into the accumulator through the carry 
bit. They are introduced one at a time by setting the carry bit, then 
performing a left shift into A. Each time, index register Y is decre- 
mented and the loop is executed again as long as Y is not 40”: 
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LDA #0 
SHIFT SEC 
ROLA Shift into position 
DEY | 
BNE SHIFT Loop 
RTS | 


Note that a rotation to the left is used rather than a shift. If Y did 
contain the value “9,” the accumulator A would be filled with 1’s and 
the carry bit would also contain the value “17” upon leaving the 
subroutine. 


The Interrupt Handler 


This subroutine complements the LEDs each time an interrupt is 
received, i.e., every time timer 1 runs out. It is located at memory ad- 
dresses “03ЕА”” and following. Since the accumulator is used as a 
working register by the subroutine, it must be preserved upon entry 
and pushed into the stack: 


PHA 


The contents of Ports 1A and 1B will be read and then complemented. 
Recall that there is no complementation instruction on the 6502, so 
an exclusive OR will be used instead. MASKA and MASKB specify 
the bits to be complemented: 


LDA PORTIA 
EOR MASKA 
STA PORTIA 
LDA PORTIB 
EOR MASKB 
STA PORTIB 


Also recall that the interrupt bit in the 6522 has to be cleared explicitly 
after every interrupt. This is done by reading the latch: 


LDA TILL 


Finally, the accumulator is restored, and a return occurs to the main 
program: 
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PLA IER =$A00E - $INTERRUFT ENABLE REGISTER 
ACR =$A00B $AUXILIARY CONTROL REGISTER 
RTI TALL. =$A004 $TIMER 1 LATCH LOU 
TACH =$A005 $TIMER 1 COUNTER HIGH 
FORTIA х%А001 %УТА 1 FORT A IN/OUT REG 
IDRiA =$A003 7VIA 1 PORT A DATA DIRECTION REG. 
РӨКТІВ =$A000 SVIA 1 FORT B IN/OUT REG 
SUMMARY ІШКІВ х%А002 %УГА 1 FORT В BATA DIRECTION REG. 
РОКТЭВ =$AC00 ҰУТА 3 PORT B IN/OUT REG 
In this program, we have used two new hardware resources in the DURE — ;-$6C02 VIA 3 PORT B DATA DIRECTION REG 


, 

$ROUTINE TO SET UF VARIARLES ANI INTERRUPT TIMER FOR 
PLEI, FLASHING 

y 

0200: 20 86 8R JSR ACCESS FUNFROTECT SYSTEM MEMORY 

0203: A? EA LIA #€$EA LOA LOW INTERRUFT VECTOR 

0205: BE 7E AG STA IRQUECL Fee AND STORE AT VECTOR LOCATION 
0208: 49 O3 LOA %%03 LOAN INTERRUPT VECTOR, +++ 

0206: 8D 7F AG STA IRQUECH $... AND STORE. 

0201; 49 7F LIA *$7F $CLEAR INTERRUPT ENABLE REGISTER 
020F: 8I! 0E AO STA IER ы 

0212: А9 CO LIA £$CO $ENABLE TIMER 1 INTERRUFT 

0214: 8h ОЕ AO STA TER 

0217: А9 40 LIA %%40 3ENABLE TIMER 1 IN FR 
0219: 8I OR AO STA ACR 

021C: А9 FF LIA #$FF 

021E} 80 04 AO STA TILL $SET LOW LATCH ON TIMER 1 
0221; BI 05 AO STA Тісн ЗЕТ LATCH HIGH & START COUNT 
0224: 58 CLI $ENABLE INTERRUPTS 

0225: 8h O3 AO STA PERIA SET VIA 1 FORT А FOR OUTPUT 
0228: SI 02 AO STA ІШКІБ $5SET VIA 1 FORT B FOR OUTPUT 
81 02 AC STA ІШКЕЗВ %5ЕТ VIA 3 FORT B FOR QUTPUT 
022E: AY 00 КЕҮІ LIA #0 3CLEAR LELS 

0230; 80 O1 AO STA FORTIA 

0233: 8E 00 AO STA РОКТІВ 

0836: 85 05 STA MASKA $CLEAR BLINK MASKS 

0238: 85 06 STA MASKR 


6522 I/O chip: the interrupt control and the programmable interval 
timer. Interrupts have been used to implement simultaneous processing 
by blinking the LEDs while the program proceeds, testing for a win or 
lose situation. 


Exercise 9.1: Could you implement the same without using interrupts? 


Е-КОМ MONE 


sMINDBENDER PROGRAM 
SPLAYS MINBRBENDER GAME: USER SPECIFIES LENGTH OF NUMBER 


{ТО BE GUESSED? THEN GUESSES DIGITS» АМП COMFUTER TELLS 
$PLAYER HOW MANY OF THE DIGITS GUESSED WERE RIGHT: AND 
SHOW MANY OF THOSE CORRECT DIGITS WERE IN THE CORRECT 
PLACE, UNTIL THE PLAYER CAN GUESS THE NUMBER. ON THE 
$BOARI BLINKING LEDS INDICATE CORRECT VALUE & CORRECT 
iDIGIT» ANI NONBLINKING LEDS SHOW CORRECT DIGIT VALUE» 
ВОТ WRONG FLACE. 

$THE BOTTOM ROW OF LEDS IS USED TO SHOW THE MORE OF 
;THE PROGRAM: IF THE LEFTMOST LED IS LIT» THE 

PROGRAM EXPECTS THE USER TO ENTER THE LENGTH 

$0F THE NUMBER TO BE GUESSED. IF THE TWO LEFTMOST 

LEDS ARE LIT»; THE FROGRAM EXPECTS A GUESS. 

THE PROGRAM REJECTS UNSUITABLE VALUES FOR A NUMBER 
LENGTH: WHICH CAN ONLY BE 1-9. A VALUE OTHER THAN 
70-9 FOR A GUESS RESTARTS THE GAME, 

ҘА LOW TONE DENOTES A БАП GUESS» A HIGHT ТОМЕ, A WIN. 
SAFTER A ШІМ» THE FROGRAM RESTARTS, 

SAN INTERRUPT ROUTINE IS USED TO BLINK THE LEIS, 


, 


» ov 


5КООТІМЕ TO GET NUMBER OF EIGITS TO GUESS» THEN 
ЕТІЛ. THE DIGITS WITH RANDOM NUMBERS FROM 0-9 
4 


0234: А9 02 (Па %%00000010 *LIGHT LER TO SIGNAL USER TO 
023C: 8n 00 AD STA РОКТІВ ;INFUT OF + OF DIGITS NEEDED, 
o23F: 20 00 01 JSR GETKEY ОЕТ % OF NIGITS 

02421 C9 OA CMF #10 SIF KEYF 29» RESTART GAME 

0244: 10 E8 ЕРІ. КЕҮІ 

0246: C9 00 СМЕ £0 CHECK FOR 0 BIGITS TO GUESS 


+=$200 0248: ҒО EA REQ КЕҮІ %...0 DIGITS NOT ALLOWED 
GETKEY — -$100 02441 85 00 STA DIGITS FSTORE VALID Ф OF DIGITS 
ACCESS — -$8R86 ROUTINE TO UNFROTECT SYS МЕМ 0246: АП 04 AO LDA TILL $GET RANDOM +y 
DIGITS -%00 $NUMBER OF DIGITS TO BE GUESSED O24F? 85 ОА STA RNI+1 — $USE IT TO START RANDOM 
DUR =$01 $TONE DURATION CONSTANT 0251: 85 ОП STA RNIMA — $NUMBER GENERATOR. 
XTEMF =$02 ТЕМЕ STORAGE FOR X REG. 0253: 85 OE STA КМ5 
ҮТЕМР =$03 ТЕМЕ STORAGE FOR Y REG. 0255: А4 00 LOY DIGITS $GET + OF DIGITS TO BE GUESSED, 
CNT =$04 $KEEPS TRACK OF % OF MATCHES 0257: 88 WEY SAND COUNT TO Ov FILLING 
MASKA =$05 $CONTAINS PATTERN EOR'ED WITH LED THEM WITH VALUES. 

STATUS REGISTER А TO CAUSE BLINK 0258: 20 FF 02 RANI! JSR RANDOM — $GET RANDOM VALUE FOR DIGIT 
MASKR =$06 $LER FORT B BLINK MASK 025R}; ЕВ SED 
FREQ =$07 TEMP STORAGE FOR TONE FREQUENCY 025С: 69 00 ALC #00 есімді ADJUST 
CNT1 =$08 $# OF CORRECT DIGITS IN RIGHT PLAC O25E! De CLO 
RND =$09 FIRST OF КАМПОМ Ж LOCATIONS 025Е: 29 ОҒ AND #200001111 KEEP DIGIT <10 
nico =$0F FIRST OF 9 DIGIT LOCATIONS 0261: 99 OF 00 STA DIGO»Y  $SAVE IT IN DIGIT TABLE. 
ENTRYO =$18 $FIRST OF 9 GUESS LOCATIONS 02441 88 WES 
IRQVECL  -$667E $INTERRUFT VECTOR LOW ORDER BYTE 0265: 10 Fi ЕРІ. RAND sFILL NEXT DIGIT 
IRQUECH =$A67F $+. AND HIGH ORDER ; 


$6522 VIA #1 REGISTERS? 


Fig. 9.13: Mindbender Program Fig. 9.13: Mindbender Program (Continued) 
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02671 
02691 
02682 
026: 
0270: 
02731 
02761 
0278: 
оз?а: 
0226: 
027E? 
027F1 
02811 
02833 


0285: 
0287: 
0288: 
0281: 
O28F 3 
02911 
02931 
02951 
0297; 
02991 


0296; 
02902 
029Е: 
0241: 
0244: 
О2А6: 
02688: 
02881 
озав: 
озат: 
ODAF 3 
о2во: 
0262; 
02В4: 
O2BS3 
0287: 
0269; 
озва: 
Н 
O2C03 
02023 
02043 
02073 
0209: 
02сс: 
O2CE: 
02100: 


02121 
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42 
ВЕ 
8E 
86 
86 
86 
86 


BS 


nS 


no 


Ев 
no 
А0 
n9 
nó 
E6 
no 
cs 
Са 
то 
E8 
Е4 
no 
18 
AS 
69S 
ав 
20 
gr 
90 
A? 
8h 
^4 
20 
85 
90 
a? 
85 


$ROUTINE TO FILL GUESS TABLE W/USERS'S GUES 


, 
ENTER LOA #0 
STA XTEMF 


LIA 400000110 


DRA FORTIB 
STA FORTIB 
JSR GETKEY 
CMF #10 
RPL КЕҮІ 

LOX XTEMF 


STA ENTRYO»X 


INX 
STX XTEMF 
CPX nIGITS 
BNE KEY? 


, 


$ THIS ROUTINE COMFAR 


$0F NUMBER TO GL 
%СОККЕСТ PLACE» 


3CLEAR ENTRY TARLE POINTER 


SLET USER KNOW THAT GUESSES 
*SHOULL RE INFUT. ++ 

e+ WITHOUT CHANGING ARRAY 

СЕТ GUESS 
PIS IT GREATER THAN 9% 


СТОКЕ GUESS IN TA 
PINCREMENT POINTER 


5СОККЕСТ # OF GUE 
FIF NOT» GET ANOTHE 


376 GUESSES WITH UIGITS 
OR C ECT DIGIT IN THE 


INNING LED IS LIT» ANI FOR EACH 


%СОККЕСТ ПІбІТ IN THE WRONG PLACE, A NONELINKING 


ЕН IS LIT. 

, 
LOX #0 
STX FORTIA 
STX РОКТІВ 
STX MASKA 
STX MASKE 
STX CNT 
STX CNT1 

niGLF LIA BIGO»X 


CMF ENTRYO»X 


$CLEAR FOLLOWING STORAGES: 
PLENS 

*RLINN MASKS 

$COUNT OF MATCHES 

$COUNT OF RIGHT DIGITS 


SLOAN t T OF # FOR 
RIGHT /RIGHT P 


BNE ЕМТКҮСМЕ м0: IS GUESS RIGHT 


INC CNTi1 
BNE NEXTRIG 
ENTRYCMF LEY £0 


ENTRYLF CMP ENTRYO»Y $RIGHT DIBIT/WRONG 


BNE NEXTENT 
INC CNT 
BNE NEXTING 
NEXTENT INY 
CFY DIGITS 
ЕМЕ ENTRYLF 
NEXTDIG INX 
СЕХ DIGITS 
BNE ПІСІР 
CLE 
LOA CNT 
AC CNT1 
TAY 
JSR LITE 
STA PORTIA 
BCC CC 
LUA #1 
STA РОКТІБ 
LOY CNTi 
MSR LITE 
STA MASKA 
RCC TEST 
LUA #1 
STA MASKR 
М 
$ROUTINE TO TEST FOR 


3 WRONG F 

0 
COMPARES 
] ] 0 LAL 
%МО» SEE IF NEXT DIC ] 
PONE MORE К 


; INCREMENT 

FALL. GUESSES TEST 

%М0» TRY NEXT GU 
$INCREMENT 0 [ 

ALL DIGITS EVALUATED? 

CHECK NEXT DIGIT. 

СЕТ REALTY FOR AfiD.... 
ОЕ TOTAL MATCHES TO DETERMINE 
$NUMRER OF L TO LIGHT 
$XFER A TO Y RO LIGHT? ROUTINE. 
СЕТ FATTERN TO LIGHT LEDS 
$TURN LEDS ON 
SIF CARRYzsOs DON'T LIGHT PRO 


TURN FEO ОМ, 

LOAD + OF LENS TO ELINK 
PATTERN 

START TO BLINK LETS 

{ТЕ CARRY =O» PHO WON'T XL. ENK 


WIN BY CHECKING IF Ж OF CORRECT 


Fig. 9.13: Mindbender Program (Continued) 
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0206: 
28: 
214: 


0206: 


02E? 
OREO? 


O2F 1: 
O2F 3s 
O2FSs 
O2F 4+ 
O2F73 
03F91 
O2FAt 
O2F BE 


o2FC: 
ӨЗҒЕ: 


ORFF? 
9300: 
03021 
03041 
0306: 
0308: 
03041 
030E: 
030E? 
9030F? 
0311: 


03121 
0314: 
0316: 
0319: 
90318: 
0311: 


^6 
E4 
FO 
A? 
85 
^9 
20 
FO 
А? 
85 
A? 
20 


ас 


no 
А9 
18 
60 
А9 
58 
2A 
88 


no 
60 


85 
А9 
gn 
А? 
^6 
АА 


04 
99 


2 03 


03 


2 
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MINDBENDER 


JINIGITS IN CORRECT PLACES = NUMBER OF DIGITS. IF WIN» 
ҘА HIGH PITCHED SOUND IS GENERATED, AND IF ANY 
DIGIT IS WRONG» A LOW SOUND IS GENERATED 


, 

TEST LUX CNT1 LOAL NUMBER OF CORRECT DIGITS 
CPX DIGITS FALL GUESSES CORRECT? 
BEQ WIN ТЕ YES» PLAYER WINS 

BAL LOA #$72 
STA NUR $8ET UF LENGTH OF LOW TONE 


“LIA ВЕ 

JSR TONE 

BEQ ENTER 

WIN LDA #$FF 
STA DUR 

LIA #$54 

JSR TONE 

JMF КЕҮІ 


STONE VALUE FOR LOW TONE 

SIGNAL BAL GUESSES W/TONE 
3GET NEXT G SE 
$HURATION FOR HIGH TONE 


$TONE VALUE FOR HIGH TONE 
3SIGNAL WIN 
$RESTART GAME 


$ 

$ROUTINE TO FILL ACCUMULATOR WITH 71” BITS» STARTING 
PAT THE LOW ORDER END» UF TO ANE INCLUDING THE 

SBIT POSITION CORRESPONDING TO THE # OF LEDS TO 

ВЕ LIT OR SET TO BLINKING. 


y 

LITE ЕМЕ STRTSH IF Y NOT ZERO, SHIFT QNES IN 
LIA #0 3SPECIAL CASES RESULT IS NO ONES. 
ELC 
RTS 


STRTSH LIA #0 $CLEAR A SO FATTERN WILL SHOW 
SHIFT SEC МАКЕ A RIT HIGH 
ROL A SHIFT IT TO CORREC 
IEY BY LOOPING TO 
MATCHES? AS FAS 
SLOOF “TIL LONE 


T FOSITION 
GUESS/DTGIT 
:p IN Y 


ЕМЕ SHIFT 


RTS 


$RANDOM NUMBER GENERATOR 

PUSES NUMBERS АуН»СУП»Е»Е STORED AS RNG THROUGH 
$SRNIMS: ADDS REFL AND PLACES RESULT IN А» THEN 
$SHIFTS A TO By B TO C» ETC. THE NEW RANDOM NUMBER 
$UHICH IS BETWEEN O ANG 255 INCLUSIVE IS IN THE 
sACCUMULATOR ON EXIT 


, 

RANDOM SEC $CARRY ADOS VALUE 1 
LIA RNIHÀi FALL А»В»Е ANI! CARRY 
ALC RNG+4 
арс RNIMS 
STA КМП 
LIX #4 

ЕРІ. LEIA КМУ Х 
STA RNIM1»X 
ПЕХ 
НЕРІ. ЕРІ. 
RTS 


SHIFT NUMBERS OVER 


>w 


STONE GENERATOR ROUTINE. 

$DURATION OF TONE (NUMBER OF CYCLES TO CREATE) 
SHOULD BE IN ‘SUR’ ON ENTRY» ANI THE NOTE VALUE 
$ FREQUENCY?) ІМ THE ACCUMULATOR. 


$ 

TONE STA FREQ 
LIA £$FF 
STA РОКТЗЕ 
LIA %%00 
Lox DUR 

FL2 LOY FREQ 


Fig. 9.13: Mindbender Program (Continued) 
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O31F3 88 FLA DEY 

03203 18 CLC 

0321: 90 00 ВЕС .+2 
0323: DO FA BNE FL1 
03251 49 FF EOR #$FF 
0327: ВП 00 AC STA РОКТЗЕ 
032A; CA ПЕХ 

0328; IO FO ЕМЕ FL2 
03218 60 RTS 


, 

$ INTERRUPT-HANIIL ING ROUTINE 
$COMFLEMENTS LENS AT EACH INTERRUFT 
$ 


10 


ош $3EA LOCATE ROUTINE IN HIGH : 
O3EA: 48 FHA SAVE ACCUMULATOR ere 
ОЗЕН: ар 01 60 LDA FORTIA  $GET PORT FOR COMPLEMENTING 
O3EE: 45 05 EOR MASKA COMPLEMENT NECESSARY BITS BLACKJACK 
O3FO: Bh 01 A0 STA PORTIA ТОКЕ COMPLEMENTED CONTENTS 
O3F3! AD 00 AO LIA PORTIB 300 SAME WITH FORTLB 
O3F 4! 45 06 EOR MASKE 
O3F8! BD 00 АО STA PORTih 
O3FE? АП 04 ао LIA TiLL ^ s$CLEAR INTERRUPT BIT IN VIA 
ОЗҒЕ; 68 FLA SRESTORE ACCUMULATOR THE RULES 
O3FF: 40 RTI DONE, RESUME PROGRAM 


The standard game of Blackjack or ‘‘21,’’ is played in the following 


FYMROL- TARDE? way. A player attempts to beat the dealer by acquiring cards which, 


GETKEY 0100 ACCESS 8886 LIGITS 0000 
DUR 0001 ХТЕМЕ 0002 ҮТЕМЕ 0003 when their face values are added together, total more points than 
CNT 0004 MASKA 0005 MASKE 0006 А : . " 
Е. од CNT1 0008 RND 0009 those in the dealer’s hand but not more than a maximum of 21 points. 
ENTRYO 1 SQUE . . . | 
IRQUECH ^ — A&7F IER Aone Ree eee If at any time the total of 21 is achieved after only two cards are | 
DURIA 2502 MARNE 20d FORTIS 001 played, а win is automatically declared for the player; this is called a 
FORTSE ACOO DDR3R асо? KEY. 022E Blackjack (the name of the game). Card values range from 1 through 
RANI 0258 ENTER 0267 KEY? 0273 ; 1 i i 
DIGLE 0295 ENTRYCMP  029F ENTRYLE 0251 11. In the standard version of Blackjack the house rules require the 
NEXTENT RAA E Ar C 2 s A . Е 
TEST ВИ Иа р Е aces dealer to “һи”? (take a card) if his/her hand equals 16 or fewer points, 
EIES 02F1 STRTSH 02F7 SHIFT 02F9 but prohibits him/her from taking a ‘‘hit’’ when his or her hand totals 
O2FF RPL 03046 TONE 0312 Н 
zeta 0310 FLi O31F 17 or more points. 


The version of Blackjack played on the Games Board differs slight- | 
ly from the standard game of Blackjack. The single “еск of cards” | 
used here contains cards with values from 1 through 10 (rather than 1- 
through 11), and the number of points cannot exceed 13 (as opposed to 
21). The dealer in this variation of the game is the computer. 

At the beginning of each hand, one card is dealt to the dealer and 
one to the player. A steady LED on the Games Board represents the 
value of the card dealt to the dealer (the computer). A flashing LED 
represents the card dealt to the player. If the player wants to be ‘‘hit’’ 
(i.e., receive another card) he/she must press key “С.” The player 
may hit several times. However, if the total of the player’s cards ever 
exceeds 13, the player has lost the round (‘‘busted’’) and he/she сап 
no longer play. It is then the dealer’s turn. Similarly, if the player 
decides to pass (‘‘stay’’), it becomes the dealer’s turn. The dealer plays 
in the following manner: if the dealer’s hand totals fewer than 10 


Fig. 9.13: Mindbender Program (Continued) 
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points, the computer deals itself one more card. As long as the hand 
does not exceed 13, the computer will check to see if it needs another 
card. Like the situation with the player, once the total of the com- 
puter's cards exceeds 13, it loses. No provision has been made for a 
bonus or an automatic win, which occurs whenever the player or the 
dealer gets exactly 13 points with only two cards (a Blackjack). This is 
left as an exercise for the reader. Once the dealer finishes its turn, 
assuming that it does not bust, the values of both hands are compared. 
If the dealer's total is greater than the player's, the player loses. Other- 
wise, the player wins. At the beginning of each series the player is 
allocated 5 chips (5 points). Each loss decreases this total by one chip; 
each win increases it by one. The game is over when the player goes 
broke and loses, or reaches a score of 10 and wins. After each play the 
resulting score is displayed as a number between 0 and 10 on the 
appropriate LED. Each time a player wins a hand, the left-most three 
LEDs of the bottom row light up. If the dealer wins the hand, the right- 
most LEDs light up. (See Figure 10.1.) 


O 


1 


10 n 12 13 14 15 10 n 
PLAYER WINS COMPUTER WINS 


Fig. 10.1: Indicating the Winner 


A TYPICAL GAME 


When playing a game against the dealer, the player will press key 
“A?” to be р” (receive an additional card) until either a total of 13 is 
exceeded (a ‘‘bust’’), or until the player decides that his or her total is 
close enough to 13 that he or she might beat the dealer. When the 
player makes this decision to stay, he ог she must press key ‘‘C.’’ This 
will start the dealer's turn, and all other keys will then be ignored. 
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LEDs will light up in succession on the board as the computer deals 
itself additional cards until it goes over ten, reaches 13 exactly, or 
busts. Once the computer has stopped playing, any key may be 
pressed; the player's score will be displayed and the winner will be in- 
dicated through lit LEDs on the winner's side. The display will appear 
for approximately one second, then a new hand will be dealt. 

Note that once the value of the computer's hand has reached a total 
greater than or equal to 10, it will do nothing further until a key is 
pressed. Let us follow this ‘‘typical вате.” 

The initial display is shown in Figure 10.2. A steady LED is shown 
as a black dot, while a blinking LED is shown as a half dot. In the in- 
itial hand the computer has dealt itself a 1 and the player a 4. The 
player presses key “А” and receives an additional card. It is a 9. The 
situation is shown in Figure 10.3. It's a Blackjack and the player has 
won. The best the dealer can hope for at this point is to also reach 13. 


eoo 
соо 
9:99 


Fig. 10.2: First Hand 


Fig. 10.3: Player Receives A Second Card: Blackjack 
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Let us examine its response. To do this we must pass by hitting “С.” . 


A moment later LED #3 lights up. The total of the computer's hand 
now is 1 + 3 = 4. It will deal itself another card. A moment later. 
LED £7 lights up. The computer's total is now 4 + 7 = 11. It stops. 
Having a lower total than the player, it has lost. Let us verify it. We 
press any key on the keyboard (for example, ‘‘0’’). The result appears 
on the display: LEDs 10, 11 and 12 light up indicating a player win, 
and LED #6 lights up, indicating that the player's score has been in- 
crease from 5 to 6 points. This information is shown in Figure 10.4. The 


Fig. 10.4: End of Turn: Dealer Loses 


LED display then goes blank and a new hand is displayed. When there 
is a draw, none of the LEDs in the bottom row light up and the score 
is not changed. A new hand is dealt. (If the player busts, the dealer 
wins immediately and a computer win is displayed.) 

Let us play one more game. At the beginning of this hand the com- 
puter has dealt itself a 5, and the player has a 6. The situation is shown 
in Figure 10.5. Let us ask for another card. We hit key “А” and are 
given a 7. This is almost unbelievable. We have thirteen again!! The 
situation is shown in Figure 10.6 It is now the computer's turn. Let us 
hit “C.” LED 410 lights up. The computer has 15. It has busted. The 
situation is shown in Figure 10.7. Let us verify it. We press any key on 
the keyboard. The three left-most LEDs on the bottom row (LED 10, 
11, and 12) light up and a score of 7 is displayed. This is shown іп 


Figure 10.8. A moment later the display goes blank and a new hand is 
started. 
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.О 


oe 
db 
E 


Fig. 10.7: Dealer Busts 
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1 2 3 
О X 
4 5 6 
4 O 0 
7 8 9 
eoo 
10 11 12 13 14 15 


Fig. 10.8: Final Score 15 7 


THE PROGRAM 


The detailed flowchart for the Blackjack program is shown in 
Figure 10.9, and the program is listed at the end of the chapter. As 
usual, a portion of page 0 has been reserved for the variables and flags 
which cannot be held in the internal registers of the 6502. This area is 
shown in Figure 10.10 as a ‘‘memory map.” These variables or flags 
are: 

DONE: This flag is set to the value ‘‘0’’ at the beginning of the 
game. If the player goes broke, it will be set to the value **11111111.** If 
the player scores 10 (the maximum), it will be set to the value ‘‘1.” 
This flag will be tested at the end of the game by the ENDER routine 
which will display the final result of the game on the board and light 
up either a solid row of LEDs or a blinking square. 

CHIPS: This variable is used to store the player's score. It is initial- 
ly set to the value ‘‘5.’’ Every time the player wins a hand it will be in- 
cremented by 1. Likewise, every time the player loses a hand, it will be 
decremented by 1. The game terminates whenever this variable reaches 
the value “0” or the value ‘‘10.” 

MASKA, MASKB: These two variables are used to hold the masks 
or patterns used to blink the LEDs connected respectively to Port A 
and Port B on the Games Board. 

PHAND: It holds the current hand total for the player. It is incre- 
mented every time the player hits (i.e., requests an additional card). 
card). 

CHAND: This variable holds the current hand total for the com- 
puter (the dealer). 


194 


ew mar x IU AE 


BLACKJACK 


START 
INITIALIZE 


CLEAR LEDs 
DRAW FIRST CARDS 
FOR EACH HAND 


COMPUTER'S 
TOTAL OVER 


HiT COMPUTER'S 
HAND 


GET KEY 


COMPARE HANDS 


BRANCH 
ON RESULTS? 


IS COMPUTER'S 
HAND 2213? 


INCREMENT 
SCORE SET 
END FLAG IF 
SCORE 50 


GIVE PLAYER 
ANOTHER CARD 


IS TOTAL 
OVER 13? 


CLEAR LEDs 
DISPLAY SCORE AND 
RESULTS OF HAND 
DECREMENT SCORE 
SET END FLAG IF 
SCORE = 0 


YES 
n qo» 


Fig. 10.9: Blackjack Flowchart 
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BLACKJACK 
TEMP: This is a temporary variable used by the RANDOM routine 
to deal the next card to either player. 
RND through RND + 5: These six locations are reserved for the 8886 АССЕЅЅ SYM Subroutine 


random number generating routine called RANDER. 

WHOWON: This status flag is used to indicate the current winner 
of the hand. It is initially set to ‘‘0,’’ then decremented if the player 
loses or incremented if the player wins. 

At the high end of memory the program uses VIA £1, the ACCESS 
subroutine provided by the SYM monitor, and the interrupt-vector at 
address A67E, as shown in Figure 10.11. 

Let us now examine the program operation. For clarity it should be 
followed on the flowchart in Figure 10.9. 


i 


A000 PORTB 
A001 PORTA 

DDRB 
A003 DDBA 


A004 TILL 


5 


А005 TICH 


ee AU 
а 4 Те 
Š —— 1 used to flash the LEDs A008 Г Г 
== o жет 
| o 
Pease 
сЕ чарай 

ere 


Interrupt Vector 
INTVECH 


Fig. 10.10: Low Memory Map Fig. 10.11: High Memory Map 
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Program Initialization 


The timer on 6522 VIA £1 will be used to generate the interrupts 
which blink the LEDs. These interrupts will cause a branch to location 
03EA where the interrupt-handling routine is located. The first step is, 
therefore, to load the new value into the interrupt vector, i.e., 
**03EA,"' at the appropriate memory location: 


BLJACK JSR ACCESS Unprotect system memory 


LDA #$EA Load low interrupt vector 
STA INTVECL 
LDA #$03 High vector 


STA INTVECH 


As described previously, the interrupt-enable register is first loaded 
with the value ‘‘O1111111,’’ and then with the value “11000000” in 
order to enable the interrupt for timer 1: 


LDA #$7F Clear timer interrupt-enable 
STA IER 

LDA %5С0 Enable timer 1 interrupt 
STA IER 


Loading the value ‘‘7F’’ clears bits 0 through 6, thereby disabling all 
interrupts. Then, loading the value **CO"' sets bit 6, which is the 
interrupt-bit corresponding to timer 1. (See Figure 9.10.) As in the 
previous chapter, timer 1 is put in the free-running mode. It will then 
automatically generate interrupts which will be used to blink the 
LEDs. In order to set it to the free-running mode, bit 6 of the ACR 
must be set to “>: 


LDA #$40 Put timer 1 
STA ACR In free run mode 


The latches for timer 1 are initialized to the highest possible value, i.e., 
FFFF: 


LDA #$FF 
STA TILL Low latch of timer 1 
STA TICH High latch and start timer 
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Finally, now that the timer has been correctly initialized, interrupts 
are enabled on the processor: 


CLI Enable interrupts 


LED Ports А and B configured as outputs (remember that the ac- 
cumulator still contains the value ‘‘FF’’): 


STA DDRA 
STA DDRB 


As a precaution, the decimal flag is cleared: 


CLD 
The player's score is initialized to the value 5: 


LDA #5 Set player’s score to 5 
STA CHIPS 


The DONE flag is initialized to the value ‘‘0’’: 


LDA #0 Clear done flag 
STA DONE 


The LEDs on the board are cleared: 
STA MASKA 
STA MASKB 
STA PORTA Clear LEDs 
STA PORTB 

And the WHOWON flag is also initialized to “0”: 
STA WHOWON Clear flag 


Dealing the First Hand 


We are now ready to play. Let us deal one card to both the dealer 
and the player. The LIGHTR and the BLINKR subroutines will be 
used for that purpose. Each of these subroutines obtains a random 
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number and lights the corresponding LED. LIGHTR lights up a 
steady LED while BLINKR blinks the LED. These two subroutines 
will be described later. We set one LED blinking for the player: 


JSR BLINKR Set random blinking LED 
and we save the first total for the current player's hand: 

STA PHAND Store player's hand 
then we do the same for the computer: 


JSR LIGHTR Set random steady LED 
STA CHAND Store computer's hand 


Hit or Stay? 


We will now read the keyboard. If the player presses ‘‘A,’’ this in- 
dicates a requested hit and one additional card must be dealt to the 
player. If “С” is pressed, the player ‘‘stays’’ (passes) and it becomes 
the computer's turn to play. All other keys are ignored. Let us first ob- 
tain the key closure from the keyboard: 


ASK JSR GETKEY 
The key value must now be compared to “А” and to “С?: 
CMP #$0A 
BEQ HITPLR 


CMP #$0C Is it computer’s turn? 
BEQ DEALER 


If any other key has been pressed, it will be ignored and a new key will 
be read: 


JMP ASK Invalid key, try again 
At this point in the program, we will assume the situation warrants 
a *'hit." One more card must be dealt to the player. Let us set one 


more LED blinking. Naturally, the BLINKR subroutine, as well as the 
LIGHTR subroutine, are careful not to deal a card that has already 


200 


BLACKJACK 


been dealt. How this is achieved will be described later (this is the pur- 
pose of the SETBIT subroutine). 


HITPLR JSR BLINKR Set random LED 


As soon as a new card.has been dealt to the player, we compute the 
player's new total for the current hand: 


CLC 
ADC PHAND Tally player's hand 
STA PHAND 


The new total must be checked against the value ‘‘13.’’ As long as the 
player has 13 or less, he or she may play again, i.e., either be hit or 
stay. However, if the player's score exceeds '*13,"' he or she busts and 
loses the play. Let us check: 


CMP #14 Check for 13 
BCC ASK Ask if<= 13 
JMP LOSE Busted 


It is now the dealer’s turn. Since the computer is much faster than the 
player in deciding whether it wants to hit or to stay, we will first slow it 
down to provide more suspense to the game: 


DEALER JSR DELAY 


The delay subroutine also extends the period of time between the suc- 
cessive decisions made by the computer to make the computer appear 
more ‘‘human-like.”’ 

Before dealing another card to the computer (the dealer), let us ex- 
amine its total. The house rule is that the dealer’s total cannot exceed 
“10.” (Naturally, other algorithms are available from Blackjack ex- 
perts.) The computer hand is therefore checked against the value 
“10.7 If this value is exceeded, a branch occurs to location WINNER 
where the winner will be decided. Otherwise, a new card will be dealt 
to the computer: 


LDA CHAND 


CMP #10 Check hand for limit 
BCS WINNER Yes. Decide winner. 
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As long as the hand totals less than ‘‘10,’’ the dealer requests a hit. A 
new card is dealt to the dealer in exactly the same way that it was dealt 
previously to the player: 


JSR LIGHTR Set random LED 
The dealer's new total is computed: 
CLC 
ADC CHAND Tally computer's hand 
STA CHAND 


Just as in the case of the player before, it is compared against the value 
**13" to determine whether or not the dealer has busted: 


CMP #14 Is hand <= 13? 
BCC DEALER Yes: another hit? 
JMP WIN Busted: player wins 


If the computer has busted, a jump occurs to location WIN which in- 
dicates a ‘‘win’’ by the player. Otherwise, a branch back to location 
DEALER occurs, where the computer will determine whether or not it 
wants to receive an additional card. Let us now determine the winner. 
Both hands are compared: 


WINNER LDA CHAND 
CMP PHAND Compare hands 


There are three possible cases: equal scores, player wins, and player 
loses. 


BEQ SCORER 
BCC WIN 


In the case that both scores are equal, a jump occurs to location 
SCORER which will display the current status. If the player wins, a 
branch occurs to location WIN and the sequence will be described 
below. First, let us examine what happens when the player loses. 


The Player Loses 


A special flag, called WHOWON, is used to store the status at the 
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end of each play. It is decremented to indicate a loss by the player: 
LOSE DEC WHOWON 
The player’s score is decremented: 
DEC CHIPS 
The player's score must be compared to the value “0.7” If the player's 
score has reached “0,” he or she is broke and has lost the game. In 
this case, the DONE flag is set to **11111111;" otherwise, it is not 
changed. Finally a jump occurs to SCORER where the final score will 
be displayed: 
BNE SCORER Player broke? 
DEC DONE Yes: set lose flag 
JMP SCORER Finish game 
Player Has Won 
Similarly, when the player wins, the WHOWON flag is set to “1”: 


WIN INC WHOWON 
The score is incremented: 
INC CHIPS 
It is then compared to the value 4109: 


LDA CHIPS 
CMP #10 Chips = 10? 


If the maximum score of ‘‘10’’ has been reached, the DONE flag is set. 


BNE SCORER 
INC DONE Set done flag 


Displaying the final status is accomplished by the SCORER routine. 


Remember that the final status will be displayed only at the player’s 
request — when any key is pressed on the keyboard. Let us wait for 
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this: 
SCORER JSR GETKEY 
Before displaying the status, all LEDs on the board are turned off: 


LDA #0 

STA MASKA 
STA MASKB 
STA PORTA 
STA PORTB 


The player’s score must now be displayed on the board. Let us read it: 


LDX CHIPS 
BEQ ENDER 


If the player has no more chips, a branch occurs to location ENDER 
and the game will be terminated. Otherwise, the score is displayed. 
Unfortunately, LEDs are numbered internally “0” through “7,” even 
though they are labeled externally ‘‘1’’ through “8.7 In order to light 
up the proper LED, the score must therefore first be decremented: 


DEX 


then a special subroutine called SETMASK is used to display the ap- 
propriate LED. On entry to the SETMASK routine, it is assumed that 
the accumulator contains the number of the LED to be displayed. 


TXA 
JSR SETMASK 


Now that the proper mask has been created to display the score, we 
must indicate the winner. If the player won, the three left-most LEDs 
in the bottom row will be lit; if the computer won, the three right-most 
LEDs will be lit. If it was a tie, no LEDs will be lit on the bottom row. 
Let us see who won: 


LDA WHOWON 
BEQ ENDER 
BMI SC 


Tie: do not change LEDs 
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If the player lost, a branch occurs to address SC. If, on the other 
hand, the player won, the three left-most LEDs in the bottom row are 
lit: 


LDA #$0E Player won: set left LEDs 
JMP SCO 


If the player lost, the three right-most LEDs are lit: 


SC LDA #$В0 Player lost: set right LEDs 
Contained in the accumulator is the appropriate pattern to light the 
bottom row of LEDs, and this is sent to the Games Board: 


SCO ORA PORTB 
STA PORTB 


End of a Play 


The ENDER routine is used to terminate each play. If the score was 
neither “0” пог **10," a new hand will be dealt: 


ENDER JSR DELAY2 
LDA DONE 
BNE ENO 
JMP START 


Otherwise, we check the DONE flag for either a player win or a player 
loss. If the player lost the game, the bottom row of LEDs is lit and the 
program ends: 


ENO BPL ENI $01: Jump on win condition 
LDA #$BE Solid row of LEDs 
STA PORTB 
RTS Return to monitor 


In the case of a player win, a blinking square is displayed and the pro- 
gram is terminated: 


ЕМІ LDA #$FF 
STA MASKA 
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LDA #$01 
STA MASKB 
RTS 
Subroutines 
SETBIT Subroutine 


The purpose of this subroutine is to create the pattern required to 
light a given LED. Upon entering the subroutine, the accumulator 
contains a number between “0” and “9” which specifies which LED 
must be lit. Upon exiting the subroutine, the correct bit is positioned 
in the accumulator. If the logical LED number was greater than “7,” 
the carry bit is set to indicate that output should occur on Port B 
rather than on Port A. Additionally, Y will contain the external value 
of the LED to be lit (1 to 10). 

Let us examine the subroutine in detail. The LED number is saved 
in index register Y: 


SETBIT TAY Save logical number 


It is then compared to the limit value ‘‘7.”’ 


CMP #8 
BCC SBO 


If the value was greater than 7, we subtract 8 from it: 
SBC #8 Subtract if >7 


Exercise 10-1: Recall that SBC requires the carry to be set. Is this the 
case? 


Now we can be assured that the number in the accumulator is be- 
tween ‘‘0’’ and “7.” Let us save it in X: 


SBO TAX 


A bit will now be shifted into the correct position of the accumulator. 
Let us first set the carry to ‘‘1’’: 


SEC Prepare to roll 
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We clear the accumulator: 
LDA #0 
then we roll in the bit to the correct position: 


SBLOOP ROLA 
DEX 
BPL SBLOOP 


Note that index register X is used as a bit-counter. The accumulator is 
now correctly conditioned. The external number of the LED to be lit is 
equal to the initial value which was stored in the accumulator plus 
one: 


INY Make Y the external # 


If LEDs 9 or 10 must be lit, the carry bit must be set to indicate this 
fact. Port B will have to be used rather than Port A: 


CPY #9 Set carry for Port B 
RTS 


Exercise 10-2: Compare this subroutine to the LIGHT subroutine in 
the previous chapter. 


Exercise 10-3: How was the carry set for LED #9 at the end? 
LIGHTR Subroutine 


This subroutine deals the next card to the dealer (computer). It must 
obtain a random number, then make sure that this card has not 
already been dealt, i.e., that it does not correspond to a card which 
has already been displayed on the board. If it has not already been 
displayed, the random number can be used as the value of the next 
card to be dealt. A steady LED will then be lit on the board. 

Let us first get a random number: 


LIGHTR JSR RANDOM 


It will be shown below that the RANDOM routine does not just ob- 
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tain a random number but also makes sure that it does not correspond 
to a card already used. All we have to do then is position the correct 
bit in the accumulator and display it. Let us use the SETBIT routine 
we have just described in order to position the bit in the accumulator: 


JSR SETBIT 


We must determine whether Port A or Port B must be used. This is 
done by testing the carry bit which has been conditioned by the SET- 
BIT subroutine: 


BCS LLO 


We will assume that Port A must be used. The new bit will be added to 
the display by ORing it into Port A: 


ORA PORTA 
STA PORTA 


The value of the card must be restored into the accumulator. It had 
been saved in the Y register by the SETBIT routine: 


TYA 
RTS 


In case Port B is used, the sequence is identical: 


LLO ORA PORTB 
STA PORTB 
TYA Restore value 
RTS 


BLINKER Subroutine 


This subroutine operates exactly like LIGHTR above except that it 
sets an LED flashing. Note that it contains the SETMASK subroutine 
which will set the proper LED flashing and exit with a numerical value 
of the LED in the accumulator: 


BLINKR JSR RANDOM Get random number 
SETMASK , JSR SETBIT 
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BCS BLO Branch if Port B 
ORA MASKA 
STA MASKA 
TYA Restore value 
RTS 
BLO ORA MASKB 
STA MASKB 
TYA 
RTS 


RANDOM Subroutine 


This subroutine will generate a random number between “0” and 
**9" which has not already been used, i.e., which does not correspond 
to the internal number of an LED that is already lit on the Games 
Board. The value of this number will be left in the accumulator upon 
exit. Let us obtain a random number: 


RANDOM JSR RANDER Get 0-255 number 


The RANDER subroutine is the usual random number generator 
which has been described in previous chapters. As usual, we must re- 
tain only a number between “0” and “9,” We will use а different 
strategy here by simply rejecting any number greater than “9” and 
asking for a new random number if this occurs: 


AND #$0F 
CMP #10 
BCS RANDOM 


Exercise 10-4: Can you suggest an alternative method for obtaining a 
number between “0” and “9”? (Hint: such a method has been described 
in previous chapters.) 


A random number between “0” and *'9" has now been obtained. 
Let us obtain the corresponding bit position which must be lit and save 
it in location TEMP: 


JSR SETBIT 
STA TEMP 


Set bit in position 


We will now check to see if the corresponding bit is already lit on either 
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Port A or Port B. Let us first check to see if it is Port A or Port B: 


BCS RNO Determine Port A or B 


Assuming that it is Port A, we must now find which LEDs in Port A 
are lit. This is done by combining the patterns for the blinking and 
steady LEDs, which are, respectively, in Mask A and Port A: 


LDA MASKA 


ORA PORTA Combine Port and Mask 


Then a check is made to see whether or not the bit we want to turn on 
is already on: 


JMP RN1 


If it is on, we must obtain a new random number between “0” and 
«9r. 


RNI AND TEMP 
BNE RANDOM 


If the bit was not already on, we simply exit with the internal value of 
the LED in the accumulator: 


DEY 
TYA 
RTS 


Similarly, if an LED on Port B had to be turned on, the sequence is: 


RNO LDA MASKB 
ORA PORTB 
AND TEMP 
BNE RANDOM 
DEY 
TYA 
RTS 


RANDER Subroutine 


This subroutine generates a random number between ''0" and 
**255."' It has already been described in previous chapters. 
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DELAY Subroutines 


Two delay loops are used by this program: DELAY, which provides 
approximately a half-second delay and DELAY2, which provides 
twice this delay or approximately one second. Index registers X and Y 
are each loaded with the value “ЕЕ.” A two-level nested loop is then 
implemented: 


DELAY2 JSR DELAY 

DELAY LDA #$FF 
TAY 

DO TAX 

D1 DEX 
LDA #$FF 
BNE D1 
DEY 
BNE DO 
RTS 


Exercise 10-5: Compute the exact duration of the DELAY subroutines. 


Interrupt Handler 


The interrupt routine is used to blink LEDs on the board, using 
MASKA and MASKB, every time that the timer generates an inter- 
rupt. No registers are changed. The operation of this routine has been 
described in the preceding chapter: 


PHA 

LDA PORTA 
EOR MASKA 
STA PORTA 
LDA PORTB 
EOR MASKB 
STA PORTB 
LDA TILL 
PLA 

RTI 


SUMMARY 


This program was more complex than most, despite the simple strategy 
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used by the dealer. Most of the logical steps of the algorithm were 
accompanied by sound and light effects. Note how little memory is re- 
quired to play an apparently complex game. 


Exercise 10-6: Note that this program assumes that the contents of 
memory location RND are reasonably random at the beginning of the 
game. If you would like to have a more random value in RND at the 
beginning of the game, can you suggest an additional instruction to be 
placed in the initialization phase of this program? (Hint: this has been 
done in previous programs.) 


Exercise 10-7: In the ENDER routine are the instructions “BNE 
ЕМО”? and “JMP START” both needed? If they are not, under what 
conditions would they be needed? 


Exercise 10-8: “Recursion” describes a routine which calls itself. Is 
DELAY 2 recursive? 


A e. RLJACK PROGRAM = 
ACCESS 
INTVECL. 
INTUECH 
TER 
ACK 
TALI 


$A00E 
$A00K 
: $4004 
: $6005 
$6003 
LORE $5002 
FORTA $5901 
PORTH ш 56000 


DIRA 


CHIPS 
DONE 
FHANE 
CHAND 
TEMF 
RNI 
WHOWON 
GETREY 


. 


5 HAND A l А REALT BY A RANDOM 
; NUMERICAL 
“РНАМП” AND 


$ROUTEN A |- ) i 
»'WHOWON^ A STATUS TO DE *RMINE END OF GAME AND 
WHO WON THE Е 


Fig. 10.12: Blackjack Program 
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02001 
0203: 
02051 
02081 
02041 
0200: 
020Ғ? 
02121 
0214: 
0217: 
02191 
02161 
021E? 
0221? 
02241 
02251 
0228: 
02258: 
02203 
022E% 
02301 
02321 


02445: 
озар: 
O24F 3 
0291: 
02531 


02959: 


02621 


02641 


02671 
0264: 
026€: 
O26E? 
0270: 
0273: 


BLACKJACK 


PROGRAM STARTS BY INITIALIZING THE TIMER AND THE 
$1INTERRUPFT VECTOR, THE OUTFUT PORTS ARE TURNED ON» 
SAND THE STATUS FLAGS АКЕ га 
, 

BLJACK JSR ACCESS $SUNPROTECT SYSTEM MEMORY 
*$EA^ LOAN LOW INTERUFT VECTOR 
INTUECL. 
#503 $LOAL HIGH INTERUFT VECTOR 
INTVECH 
ЖӘЕ $CLEAR TIMER INTERUFT ENABLE 
ТЕК 
%%С0 $ENARBLE TIMER 1 INTERUPT 
ТЕК 
%%40 3PUT TIMER 1 IN FREE RUN MODE 
ACR 
*$FF 
TALL. E 
TICH ^ WO & START TI ER 

5 SSOR INTERUFTS 

TIRA "ORTS TO OUTPUTS 
DORE 


a5 ЗЕТ PLAYER'S SCORE T 
CHIFS 

%0 CLEAR DONE FLAG 

TONE 


E 
$NEM HAND? LISFLAY 16 Eft» BOTH HANIS ARE 
SARE SET WITH START VALUES» AND THE 
SLEDS ARE SET. 


Ж 
START STA MASKA PELEAR BLINKER MAÓSNS? ІТ IS 
STA MASKE $a88UMEI THAT ACC. CONTAINS ZERO 
STA FORTA PELEAR LEM” $ 
STA FORTE 
STA WHOWON PELEAR FLAG FOR HAND 
JSR BLINK SET RANDOM BLINKING LET 
STA РМАМО ‘STORE PLAYER’S HAND 
JSR LTGHTR ЗЕТ а STEAÑNY RANDOM LEY 
STA CHAND 58ТОКЕ COMPUTER'S HANTI 


, 
3KEY. INFUT: “AS 15 А HIT» 'C^ TS COMPUTER’ TURN 
FALL. OTHERS ARE IGNORED 


, 
ASK JSR GETKEY $6ET A KEY INFUT 
CMF #Ф0А 5HOES PLAYER WANT а HIT? 
BEQ HITFLR SYES BRANCH 
CME *$0C SIS IT “COMP TURN’ KEY? 
BEQ DEALER : 
JMF ASK PRAN KEY» TRY AGAIN 
y, 
HITPFLR JSR BLINNR ЕТ A RANDOM LED 
CLC 
ADC FHAND $TALLY PLAYER S HAND 
STA РНАМП 
CMF #14 SCHECK HANG 
BCC ASK L3» QN 
JMF LOSE $BUST Dp. GO TO LOSE ROUTINE 


y, 
DEALER JSR DELAY STELAY EXECUTION OF ROUTINE 
LIA CHANI PIS COMP OVER HOUSE LIMIT? 
CMP #10 
BCS WINNER PYES, FIGURE WINNER 
JSR LIGHTR $NÜ»SET RANDOM LED 
CLC 


Fig. 10.12: Blackjack Program (Continued) 
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0274: 65 CS ADC CHANT ТАШУ COMPUTER‘’S HAND 
0226! 85 CS STA CHANE 
0278: C9 OE СМЕ #14 $18 HAND = F 2 1 
027851 ER BCC DEALER SYES» ANOTH HIT? : = 1: 
0976: AC 92 02 JME WIN $RUSTEII» PLAYER WINS E E 
У 
3FIGURE WINNER? ‘WIN’ AND 'L ^ TALLY SCORE: 
SANU DETERMINE IF THE PLAYER HAS WON OR LOST 
$THE GAME. THE 'UHOWON' FLAG IS SET TO SHOW WHO 
ИОМ THE PARTICULAR HAND. IF THE HANIS ARE EQUAL» 
$NOTHING IS AFFECTEL. 
y 
027F: AS (C WINNER LIA CHANI SCOMPARE HANDS 
0281: CS C ЭМР PHANU с 
0283: FO 19 REQ SCORER f -QUALy NO CH : 02E4: 
0285: 90 OR RCC WIN F S намп GF ZR ORES? 
0287: Сё СІ LOSE ВЕС WHOWON ба ROUTINE O2E7% 
0289: C6 C ЕС CHIPS LY S : 02Е9: 
023883 ПО 11 ` R 1 > v ВКО 4 О2ЕВ? 
o28n: Có C í ІС ENE OF GAME FLAG: LOSE ОЗЕС: 
028F: АС YE 02 * SCORER O2EII: 
02921 Бө CI І INC WHOWON SWIN ROUTINE OREF $ 
02943 E6 C I CHIPS $TALLY SCORE O2FO% 
09996: AS »t TIPS FALD WINNINGS O2F13 
0298: C9 м SIF CHIFS=10» SET END OF GAME FLAG O2F3% 
02961 ПО 2 E O2F 43 
029C} E6 C INC no E SET END OF GAME FLAG? WIN O2F 4? 
$DISFLAY SCORE BY LIGHTING 1 OF 10 LEI’ THE 
sROTTOM ROW 0 175 SET TO SHOW Wi EK THE PLAYER 
РОК THE COMPUT E HAND е n Қ; 
$THUS» THEN A TEST T “OR A D OF GAME CONDITION 
PIF SUCH A CONDITION Г THE 5 ARE 
$SET ACCORDINGLY» AND T і 15 TERMINATED. 02F71 
SIT IS ASSUMED THAT THE AÑ ЈЕ THE MONITOR 15 OFA? 
$0N THE STACK. o2Fn: 
d E O2FF? 
Q029E: 2 1 SCORER JSR GETKEY SHOLI LAST STANDINGS OF CARDS 03021 
0261: LHA #0 L. К EENS 0305: 
02631 STA MASKA 03061 
02681 STA INE 02071 
02471 STA FORTE 2 : 03064: 
026451 STA FC ` | o3on: 
ozan: E LUX CHI TISFLA UMBER OF CHIFS : 030Е: 
22 18 REQ E E JST SO 6 OUTINE SETS 
HEX T SIGH a 
TXA 
0263} 20 12 03 JSR SETMASK 
O02R6: AS CI LIA WHOWON WHO WON HANDI 
ORB? Е BER E 2 i 10 NOT AF % 
Q23BÀ: a RMI S 
3 LA 4 E IPLAYER WON- SET THREE LEFT LEN S 
JMF SC 
: $c LIA # PLAYER LOST- SET THREE RIGHT LEI 
02C3: a SCO ORA F g- ЗЕ zi PORT - 930Ғ: 
0266: 81 STA F B: 03121 
0269: 20 5 35 ENTER JSR DELAY? SHOLE DISFLAY 0315? 
$ 03171 
O2CC? AS LIA DONE: CHECK FOR END OF GAME CONDITION : 0319: 
ACE: В Е . 0318: 
025001 "EM. 2 х START ТЕКС START NEW HANI өзіс: 
02031 E BF ENİ WIN СОМПІТТОМ o3int 
02095: RE A 4 E г SOLID ROW LENS O31F: 


9207: 


оза! URN TO MONITOR 


Fig. 10.12: Blackjack Program (Continued) 
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A? 
85 
A? 
85 
60 


^8 
C? 
90 
E9 
AA 
38 
А9 
2A 
CA 
10 
св 
со 
60 


20 2: 


20 
RO 
ор 
8n 
98 
60 
on 
8n 
98 
60 


20 
20 
BQ 


FF 
01 
сз 


08 
02 
o8 


90 


FC 


09 


93 
02 


А0 
AQ 


AQ 
^0 


BLACKJACK 


ЕМІ $8ET BLINKING SQUARE 
LIA #9601 
STA MASKE 
RTS FRETURN TO MONITOR 
% 
; 
% TUSURROUTI 
; 
$ 


ISET A RIT IN ACCUMUL 
І.Е, 0-9» IN ACC, 
FIN Y» AND THE RIT ЕС 
, 


ATOR? ENTER WITH A LOGICAL VALUE» 
XITS WITH A NUMERICAL 
SITTANEN TN ACC, — THE 


SETRIT TAY САМЕ LOGICAL NUMBER 
CMP #8 3HRACRET 0-7 VALUE 
ECC SEO 
SEC #8 $.,SURTRACT IF $7 
SRO TAX $SET INDEX REG 
SEC $PREPARE BIT TO ROLL. 
LIA #0 
SBLOOF ROL A МОМЕ RIT TO POSITION 
EX 
BFL SELOOF 
INY SMAKE Y NUMERICAL» NOT LOGICAL 
СРҮ #9 ЗЕТ CARRY. FOR РОКТВ» C= 
RTS 


$LIGHTR: SETS A КАМПОМ 
$PREVIOUSLY SET. IT 


TEARY LED THAT HAS NOT В 
A RANDOM NUME THEN SE 
CAL. VALUE OF 


ITHE RIT IN THE PROPER FORT. THE М 
RIT SET IS IN THE ACCUMULATOR ON E 
% 


LIGHTR RANDOM 


JS R 

8 ITI асс» 
IF PORT BO GNATEL 
IN FORTA 


$RESTORE NUMERICAL VALUE 


LLO "ORTRE 55ЕТ ШЕП IN PORTE 
FORTE 
3RESTORE NUMERICAL VALUE 
E 
$BELINNR: SETS A RANDOM FLASHING LED THAT HAS NOT Е 


VALUE OF THE LET 
BETS A RANDOM NUME 
MASK ROUTINE TO FLASH THE 


REVIOUSLY SET. THE NUME 
ACCUMULATOR IT 
$THEN DROPS INTO T 
ЭРКОРЕК ШЕП» 


ЕМТ WITH A LOGICAL VALUE» ANI ROU’ 
"КОРЕК FLASHING LEY. EXITS WITH NUME 


ali OF LED SET IN ACCUMULATOR 


BLINKR JSR RANDOM GET RANDOM NUM 
SETMASK JSR SETRIT 


RCS BLO $BRANCH IF PORTE DESIGNATED 
ORA MASKA $SET MASKA 
STA MASKA 
TYA FRESTORE NUMERICAL VALUE 
RTS 

BLO ORA MASKE 55ЕТ MASKE 


STA MASKE 


Fig. 10.12: Blackjack Program (Continued) 
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03231 
03261 
03283 
03261 
0520: 
032F1 
O3311 
03331 
0535: 
0538: 
0338: 
o33n: 
0340: 
0542: 
0344: 
03451 
03461 


03471 
03481 
03441 
03403 
054Е: 
0550: 
03521 
0354: 
0356: 
0357: 
0359; 


OZSA? 
0551: 
O3SF! 
03603 
03611 
03621 
03441 
03661 
03671 
03691 


OSEAS 
OZER? 
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98 
60 


38 
АВ 
65 
аз 
85 
A2 
RS 
95 
СА 
10 F9 
60 


20 Sn 
А9 FF 


А9 FF 
no FB 


no F7 


48 
All 01 


03 


02 


^0 
03 


80 


03 


A0 


BLACKJACK 
TVA OZEE? 2 EOR MASKA 
RTS : : OBFO! 8 STA FORTA 
; : 03Е3: 
$GENERATES A RANDOM NUMBER FROM 0. TO 9 THAT IS NOT O3F63 
ЎТНЕ NUMBER OF AN LED ALREADY SET. RESULT IS IN ACC ON : o3rg: 
sEXIT. : | ӨЗЕВ? АП ла TULL бады ЗЕ 
; ОЗҒЕ: 68 Е А TORE ACCUMULATE 
RANDOM JSR RANDER $GET 0-255 NUMBER O3FF T) 
ANI #$0F $3MASK HIGH NIBBLE 
CMP #10 $RRACRET 0-9 : 
BCS RANDOM SYMBOL. TABLE: 
JSR SETRIT $SET RIT IN POSITION ACCESS 8886 ІМТ қ ^67E INTVECH A67F 
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Fig. 10.12: Blackjack Program (Continued) 
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TIC-TAC-TOE 


THE RULES 


Tic-Tac-Toe is played оп a three-by-three sectioned square. An “О” 
symbol will be used to represent a move by the player and an “X” will 
be used to display a move by the computer. Each player moves in turn, 
and on every turn each player strategically places his or her symbol in 
a chosen section of the board. The first player to line up three symbols 
in a row (either horizontally, vertically or diagonally) is the winner. 
An example of the eight possible winning combinations is shown in 
Figure 11.1. Using our LED display, a continuously lit LED will be 
used to display an ‘‘X,”’ i.e., a computer move. A blinking LED will 
be used to display an “О,” i.e., the player's move. 

Either the player or the computer may make the first move. If the 
player decides to move first, he or she must press key “Е.” If the com- 
puter is to move first, any other key should be pressed and the com- 
puter will start the game. At the end of each game a new game will 
start automatically. The computer is equipped with a variable IQ (in- 
telligence) level ranging from one to fifteen. Every time the computer 
wins, its IQ level is reduced one unit. Every time the player wins, the 
computer's IQ level is increased by one unit. This way, every player 
has a chance to win. A high tone is sounded every time the player wins 
and a low tone is sounded every time that the player loses. 


A TYPICAL GAME 


The display is initially blank. We will let the computer start. We do 
this by pressing any key but the key “F.” (If we press key ‘‘F,”’ then 
the player must go first.) Let us begin by pressing “0.” After a short 
pause the computer responds with a “сһігр” and makes its move. (See 
Figure 11.2.) 
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Fig. 11.2: First Computer Move 


An ‘‘X’’ is used to denote the computer's moves. “О” will be used 
to denote our moves. Blank spaces are used to show unlit LEDs. Let 
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us move to the center and occupy position 5. (See Figure 11.3.) W 
press key **5." A moment later, LED #1 lights up and a chirp is hear 
that indicates it is our turn to play. The board is shown in Figure 11.4 


X 


Fig. 11.3: OurFirst Move 


X 


X 


Fig. 11.4: Second Computer Move 


It is now our turn and we should block the computer to prevent it 
from completing a winning column: let us occupy position 4. We press 
key *'4." A moment later, LED #6 lights up and a chirp is heard. The 
situation is shown in Figure 11.5. 


X 
O X 
X 


Fig. 11.5: After the Computer's Third Move 
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We play in position 2. The computer reacts by playing in position 8. 
This is shown in Figure 11.6. We prevent the computer from com- 
pleting a winning row by playing in position 9. The computer responds 
by occupying position 3. This is shown in Figure 11.7. This is a draw 
situation. Nobody wins, all the LEDs on the board blink for a mo- 
ment, and then the board goes blank. We can start another game. 


Fig. 11.6: After the Computer's Fourth Move 


X|O|X 
O X 
X|X|O 


(DRAW) 


Fig. 11.7: After the Computer's Fifth Move 


Another Game 


This time we are going to start and, hopefully, win! We press “Е” 
to start the game. A chirp is heard, confirming that it is our turn to 
play. We play in position 5. The computer responds by occupying 
square 3. The chirp is heard, announcing that we can play again. The 
situation is shown in Figure 11.8. We play in position 4. The computer 
responds by occupying square 6. This is shown in Figure 11.9. This 
time we must block the computer from completing the column on the 


221 


6502 GAMES 


Fig. 11.8: Move 1 


Fig. 11.9: Move2 


X X 
O X 
O 


Fig. 11.10: Move 3 


right and we move into position 9. The computer responds by moving 
to square 1, thus preventing us from completing a diagonal. This 
situation is shown in Figure 11.10. We must prevent the computer 
from completing a winning row on top; therefore we occupy position 
2. The computer responds by occupying position 8. This is shown in 
Figure 11.11. We make our final move to square 7 to finish the game. 
This is a draw: we did not beat the computer. 
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X|OJ|X 
O X 
X|O 


Fig. 11.11: Move 4 


Since the computer was ‘‘smart enough" to move into a diagonal 
position after we occupied the center position, we did not win. Note: if 
we keep trying, at some point the computer will play one of the side 
positions (2, 4, 6, or 8) rather than one of the corners and we will then 
have our chance to win. Here is an example. 

We move to the center. The computer replies by moving into posi- 
tion 6. The situation is shown in Figure 11.12. We move to square 1; 
the computer moves to square 9. This is shown in Figure 11.13. We 


Fig. 11.12: Move 1 


O 
X 
X 


Fig. 11.13: Move 2 
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move to square 3; the computer moves to square 7. This is shown in 
Figure 11.14. This time we make the winning move by playing into 
square 2. The situation is shown in Figure 11.15. Note that if we start 
playing and if we play well, the result will be either a draw or a win. 
With Tic-Tac-Toe, the player who starts the game cannot lose if he or 
she makes no mistakes. s 


O O 
X 
X X 


Fig. 11.14: Move 3 


ооо 
X 
X X 


Fig. 11.15: "We Win!" 


THE ALGORITHM 


The algorithm for the Tic-Tac-Toe program is the most complex of 
those we have had to devise so far. It belongs to the domain of so- 
called ‘‘artificial intelligence.’’ This is a term used to denote the fact 
that the functions performed by the program duplicate the mental ac- 
tivity commonly called ‘‘intelligence.’? Designing a good algorithm 
for this game in a small amount of memory space is not a trivial prob- 
lem. Historically, many algorithms have been proposed, and more can 
be found. Here, we will examine two strategies in detail, and then 
select and implement one of them. Additional exercises will suggest 
other possible strategies. 
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. Strategy to Decide the Next Move 


A number of strategies may be used to determine the next move to 
be made by the computer. The most straightforward approach would 


. be to store all possible patterns and, the best response in each case. 


This is the best method to use from a mathematical point of view as it 
guarantees that the best possible move will be made every time. It is 
also a practical approach because the number of combinations on a 3 
X 3 board is limited. However, since we have already learned to do 
table lookups for other games, such an approach would not teach us 
as much about programming. It might also not be considered ‘‘fair.”’ 
We will, therefore, investigate other methods applicable to a wider 
number of games, or to a larger board. 

Many strategies can be proposed. For example, it is possible to con- 
sider a heuristic strategy in which the computer learns by doing. In 
other words, the computer becomes a better player as it plays more 
games and learns from the mistakes it makes. With this strategy the 
moves made by the computer are random at the beginning of the 
game. However, provided that a sufficient amount of memory is 
available, the computer remembers every move that it has made. If it 
is led into a losing situation, the moves leading to it are thrown out by 
the computer as misjudged moves, and they will not be used again in 
that sequence. With time and a reasonable ‘‘learning’’ algorithm this 
approach will result in the construction of decision tables. However, 
this approach assumes that a very large amount of memory is 
available. This is not the case here. We want to design a program 
which will fit into 1K of memory. Let us look at another approach. 

Another basic approach consists of evaluating the board after each 
move. The board should be examined from two standpoints: first, if 
there are two ‘‘O’’s ina row, it is important to block them unless a win 
can be achieved with the current move. Also, the win potential of 
every board configuration should be examined each time: for exam- 
ple, if two **X"'s are in a row, then the program must make a move in 
order to complete the row for a win. Naturally these two situations are 
easy to detect. The real problem lies in evaluating the potential of 
every square on the board in every situation. 


An Analytical Algorithm 


At this point, we will show the process used to design an algorithm 
along very general guidelines. After that, as we discover the weakness- 
es of the algorithm, we will improve upon it. This will serve as an ex- 
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ample of a possible approach to problem-solving in a game of 
strategy. 


General Concept 


The basic concept is to evaluate the potential of every square on the 
board from two standpoints: ‘‘win’’ and *'threat."' The win potential 
corresponds to the expectation of winning by playing into a particular 
square. The threat potential is the win potential for the opponent. 

We must first devise a way to assign a numerical value to the com- 
binations of ‘‘O’’s and “Х” on the board. This must be done so that 
we can compute the strategic value, or ‘‘potential,”’ of a given square. 


Value Computation 


For each row (or column or diagonal), four possible configurations 
may occur — that is, if we exclude the case in which all three positions 
are already taken and we cannot play in a row. These configurations 
are shown in Figure 11.16. Situation “А” corresponds to the case in 
which all three squares are empty. Clearly, the situation has some 
possibilities and we will start by assigning the value “опе” to each 
square in that case. The next case is shown in row “В” of Figure 
11.16; it corresponds to the situation in which there is already an “Х” 
in that row. If we were to place a second ‘‘X”’ in that row, we would 
be very close to a win. This is a desirable situation that has greater 
value than the preceding one. Let us add “опе” to the value of each 
free square because of the presence of the ‘‘X’’; the value of each 
square in that instance will be ‘‘two.”’ 

Let us now consider case “С” in Figure 11.16, in which we һауе one 
“X” and one “О.” The configuration has no value since we will never 
be able to win in that particular row. The presence of an “О?” brings 
the value of the remaining square down to *'zero."' 

Finally, let us examine the situation of row “р” in Figure 11.16, 
where there are already two ‘‘X”’s. Clearly, this is a winning situation 
and it should have the highest value. Let us give it the value *'three." 

The next concept is that each square on the board belongs to a row, 
a column, and possibly a diagnoal. Each square should, therefore, be 
evaluated in two or three directions. We will do this and then we will 
total the potentials in every direction. For convenience, we will use an 
evaluation grid as shown in Figure 11.17. Every square in this grid has 
been divided into four smaller ones. These internal squares are used to 
display the potential of each square in each direction. The square 
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Fig. 11.16: The Six Combinations 


Fig. 11.17: Evaluation Grid 
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labeled ‘‘H’’ in Figure 11.17 will be used to evaluate the horizontal 
row potential. ‘‘V’’ will be used for the vertical column potential. 
“D” will be used for the diagonal potential. “Т” will be used for the 
total of the previous three squares. Note that there is no diagonal 
value shown for four of the squares on the board. This is because they 
are not placed on diagonals. Also note that the center square has two 
diagonal values since it is at the intersection of two diagonals. 

Once our algorithm has computed the total threat and win poten- 
tials for each square, it must then decide on the best square in which to 
move. The obvious solution is to move to the square having the 
highest win or threat potential. 

Now we shall test the value of our algorithm on some real examples. 
We will look at some typical board configurations and evaluate them 
by using our algorithms to check if the moves it generates make sense. 


A Test of the Initial Algorithm 


Let us look at the situation in Figure 11.18. It is the player's turn 
(“O”) to play. We will evaluate the board from two standpoints: 
potential for “Х” and threat from ‘‘O.’’ We will then select the 
square that has the highest total in each of the two grids generated and 
make our move there. 


O 


O 


Fig. 11.18: Test Case 1 


Let us first complete the evaluation grid for the first row. Since 
there is an “О” in the first row, the horizontal potential for the player 
is zero (refer to row C, Figure 11.16 and look up the value of this con- 
figuration). This is indicated in Figure 11.19. Let us now look at row 
2: it contains two blank squares and an **X." Referring to line B of 
Figure 11.16, the corresponding value is **two."' It is entered at the ap- 
propriate location in the grid, as shown in Figure 11.20. Finally, the 
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Fig. 11.20: Evaluating the Horizontal Potential 


third row is examined, and since there is an “О” in it, the row poten- 
tial is ‘‘zero,’’ as indicated in Figure 11.20. The process is then repeat- 
ed for the three columns. The result is indicated in Figure 11.21. 

The value of each square of column 1 is ‘‘zero,’’ since there is ап 
“O” at the bottom. Similarly, for column 2 the value is also ‘‘zero,”’ 
and for column 3 it is ‘‘one’’ for each square, since all three squares 
are open (blank). (Refer to line A in Figure 11.16.) 

The process is repeated for each of the two diagonals and the results 
are shown in Figure 11.22. Finally, the total is computed for each 
square. The results are shown in Figure 11.23. Remember that the 
total appears in the bottom right-hand corner of each square. 

It can be seen that at this point, two squares (indicated by an arrow 
in Figure 11.23) have the highest total, **three."' This indicates where 
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Fig. 11.23: The Final Potential 


HIGHEST 
SCORE 
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we should play. But wait! We have not yet examined the threat, i.e., 
the potential from our opponent “О.” 

We will now evaluate the threat posed by “О” by again computing 
the potential of each square on the board, but this time from '*O's" 
standpoint. The position values for the six meaningful combinations 
are indicated in Figure 11.24. When we apply this strategy to our 
evaluation grid, we obtain the results shown in Figure 11.25. The 
square with the highest score is the one indicated by the arrow. It 
scores **four," which is higher than the two previous squares that 
were determined when we evaluated the potential for ‘‘X.”’ 

Using our algorithm, we decide that the move we should make is to 
play into square 1, as indicated in Figure 11.26. 

Let us verify whether this was indeed the appropriate move, assum- 
ing that each player makes the best possible move. A continuation of 
the game is shown in Figure 11.27. It results in a draw. 


VALUE 0 


VALUE O 


VALUE 2 


Fig. 11.24: Evaluation for "О" 
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HIGHEST 
SCORE 


Fig. 11.25: Potential Evaluation 


Fig. 11.26: Move for Highest Score 


X 
O (DRAW) 
O 


Fig. 11.27: Finishing the Game 
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Let us now examine what would have happened if we had not 
evaluated the threat and played only according to the highest potential 
for “Х” as shown in Figure 11.23. This alternative ending for the 
game is shown in Figure 11.28. This game also results in a draw. In 
this instance, then, the square with the value ‘‘four’’ did not truly 
have a higher strategic value than the one with the value ‘‘three.”’ 
However, our algorithm worked. 

Let us now test our algorithm under more difficult circumstances. 


O| XX O|X|X DRAW) 
O O| [охо 


Fig. 11.28: An Alternative Ending for the Game 


Improving the Algorithm 


In order to test our algorithm, we should consider clear-cut situa- 
tions in which there is one move that is best. To begin, we will assume 
that it is the player's turn. The first test situation, evaluated for “X,” 
is illustrated in Figure 11.29, and the potential for “О”? is shown in 
Figure 11.30. This time we have a problem. The highest overall poten- 
tial is **four" for “Х” in the lower right corner square. If the com- 
puter moved there, however, the player would win! At this point our 
algorithm should be refined. 

We should note that whenever there are already two ‘‘X’’s in a row 
the configuration should result in a very high potential for the third 
square. We should therefore assign it a value of ‘‘five’’ rather than 
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Fig. 11.31: Test 42 
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*'three" to ensure that we move there automatically. We have thereby 
identified and made our first improvement to the algorithm. 

The second test situation is shown in Figure 11.31. Our algorithm 
assigns the value ‘‘six’’ to the lower right corner square (as indicated 
by an arrow in Figure 11.31). This is clearly the correct move. It 
works! Now, let us test the improvement we have made. 


The First Move 


When the board is empty, our algorithm must decide which square 
should be occupied first. Let us examine what this algorithm does. 
(The results are shown in Figure 11.32.) The algorithm always chooses 
to move to the center. This is reasonable. It could be shown, however, 
that it is not indispensable in the game of Tic-Tac-Toe. In fact, having 
the computer always move to the center makes it appear *'boring,"' or 
simply “ЧасКіпр imagination." Something will need to be done about 
this. This will be shown in the final implementation. 


Fig. 11.32: Moving to the Center 


Another Test 


Let us try one more simple situation. This situation is shown in 
Figure 11.33. Again, the recommended move is a reasonable one. The 
reverse situation is shown in Figure 11.34 and does, indeed, lead to a 
certain win. So far, our algorithm seems to work. Let us try a new 
trap. 


A Trap 


The situation is shown in Figure 11.35. It is now **X's" turn to play. 
Using our algorithm, we will move into one of the two squares having 
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Fig. 11.34: A Reverse Situation 


the total of ‘‘four.’’ This time, however, such a move would be an er- 
ror! Assuming such a move, the end of the game is shown in Figure 
11.36. It can be seen that “О” wins. The move by ‘‘X’’ was an incor- 
rect choice if there was a way to get at least a draw. The correct move 
that would lead to a draw is shown in Figure 11.37. This time, our 
algorithm has failed. Following is a simple analysis of the cause: it 
moved to a square position of value ‘‘four’’ corresponding to a high 
level of threat by “О,” but left another square with an equal threat 
value unprotected (see Figure 11.35). Basically, this means that if ‘‘O”’ 
is left free to move in a square whose threat potential is equal to 
“four,” it will probably win. In other words, whenever the threat 
posed by “О” reaches a certain threshold, the algorithm should con- 
sider alternative strategies. In this instance, the strategy should be to 
place an “Х” in a square that is horizontally or vertically adjacent to 
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NEXT 
MOVE 


Fig. 11.35: Trap 3 


O X 
o[x 


Охо Охо 


Fig. 11.36: End of Game 


the first one in order to create an imminent ‘‘lose threat” for “О,” 
and thereby force **O" to play into the desired square. In short, this 
means that the algorithm should analyze the situation further or better 
still, analyze the situation one level deeper, i.e., one turn ahead. This 
is called two-ply analysis. 
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X 
o|x|x| |o|X|X raw) 


Fig. 11.37: A Correct Move 


In conclusion, our algorithm is simple and generally satisfactory. 
However, in at least one instance, Trap 3 in Figure 11.35, it fails. We 
must therefore, include either a special consideration for this case, or 
we must analyze the situation one turn ahead every time and look at 
what would happen if we were to place an “Х” or an “O” in every 
one of the available squares. The latter is actually the ‘‘cleanest’’ solu- 
tion. Ideally, we should analyze all of the possible sequences until an 
end-of-game situation is obtained. The programming complexity, the 
storage required, and the time that would be needed to analyze the 
situations would, however, make this approach impractical. In a more 
complex game, such as chess or checkers, it would be necessary to use 
such a multi-ply analysis. For example, using only a two-ply analysis 
technique to design a simple chess game would not make it very in- 
teresting or very good. It would be necessary to use three-ply, four-ply 
or even more detailed analysis in order to make the game challenging. 

If it is not possible to push the evaluation to a sufficient depth, the 
algorithm must be equipped with specific procedures that can detect 
special cases. This is the case with ad hoc programming, which can 
be considered **unclean"' but actually results in a much shorter pro- 
gram and/or a lesser memory requirement. In other words, if the 
special situations in a game can be recognized in advance, then it is 
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possible to write a special-purpose program which will take these 
situations into account. The resulting program will usually be shorter 
than the completely general one. This type of program, however, 
can only be constructed if the programmer has an excellent initial 
understanding of the game. 

In the game of Tic-Tac-Toe, the number of combinations is limited. 
This makes it possible to examine all possible combinations that can 
be played on the board and to devise a procedure that takes all of these 
cases into account. Since we are primarily limited here by the amount 
of available memory, we will construct an ad hoc algorithm that fits 
within 1K of memory. Alternative techniques will be proposed as 
exercises. 


The Ad Hoc Algorithm 


This algorithm assigns a value to each square on the board depend- 
ing on who has played there. Initially a value of ‘‘zero’’ is assigned to 
each square on the board. Every time the player occupies a square, 
however, the corresponding value of the square becomes “опе.” 
Every time the computer occupies a square, the value of that square 
becomes ‘‘four.’’ This is illustrated in Figure 11.38. The value of 
“four” has been chosen so that it is possible to know the combination 
of moves in that row just by looking at the total of every row. For ex- 
ample, if a row consists of a move by the player and two empty 
squares, its ‘‘row-sum’’ is **one." If the player has played twice, its 
row-sum 15 ‘‘two.’’ If the player has played three times, the row-sum is 
“three.” Since ‘‘three’’ is the highest total that can be achieved in 
rows where only the player has played, the value of ‘‘four’’ has been 
assigned to a computer move. For example, if the value of a row is 
“five,” we know that there is one computer move (‘‘X’’), one player 
move (‘‘O’’), and one empty square. The six possible patterns are 
shown in Figure 11.38. It can readily be seen that the row-sum values 
of ‘‘two’’ or "eight" are winning situations. A row-sum value of 
“five” is a blocked position, i.e., one that has no value for the player. 
If a win situation is not possible, then the best potentials are represent- 
ed by either a value of “опе” or a value of “Ғош”” depending on 
whose turn it is to play. 

The algorithm is based on such observations. It will first look for a 
win by checking to see if there is a row-sum of value ‘‘eight.’’ If this is 
the case, it will play there. If not, the algorithm will check for a so- 
called ‘‘trap’’ situation in which two intersecting rows each have a 
computer move in them and nothing else (the algorithm is always used 
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5 (BLOCKED) 


Fig. 11.38: Row-sums 


for the computer's benefit). This is illustrated in Figure 11.39. By ex- 
amining Figure 11.39, it becomes clear that each unoccupied square 
that belongs to two rows having a row-sum of ‘‘four’’ is a trap posi- 
tion where the algorithm should play. This is exactly what it does. 

The complete flowchart for the board analysis is shown in Figure 
11.40. Now, let us examine it in more detail. Remember that it is 
always the computer's turn when this algorithm is invoked. 

First, it checks for a possible immediate win. In practice, we will ex- 
amine all row-sums and look for one which has a total of ‘‘eight.”’ 
This would correspond to a case where there are two computer moves 
in the same row with the last square being empty. (Refer to Figure 
11.38.) 

Next, we will check for a possible player win. If the player can win 
with the next move, the algorithm must block this move. To do so, it 
should scan the row-sums and look for one that has a total of ‘‘two,”’ 
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ROWSUM 


Е | 
Fig. 11.39: A Trap Pattern 


which would indicate a winning combination for the player. (Refer to 
Figure 11.38.) 

At this point the algorithm should check to see if the computer can 
play into any of the trap positions defined above. (See Figure 11.39 for 
an example.) l 

One more feature has been built into the algorithm: the computer is 
equipped with a variable IQ level, i.e., with a variable level of in- 
telligence. The above moves are ones that any ‘‘reasonable computer" 
must make. From this point on, however, the algorithm can let 
the computer make a few random moves and even possible mistakes if 
its intelligence level is set to a low level. In order to provide some 
variety to the game, we will obtain a random number, compare it to 
the IQ, and vary our play depending upon the results. If the IQ is set 
to the maximum, the program will always execute the right branch of 
the flowchart; however, if the IQ is not set to the maximum, it will 
sometimes execute the left branch. Let us follow the right branch of 
the flowchart. At this point, we will check for two special situations 
that correspond to moves £1 and £4 in the game. 

For the first situation, i.e., the first move in a game, the algorithm 
will occupy any position on the board. That way, its behavior will be 
different every time and, thus, appear ‘‘intelligent.”’ 
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CAN COMPUTER 
WIN? 


RETURN W/ 
WINNING MOVE 
IN X 


CAN 
PLAYER WIN? 


RETURN W/ 
BLOCKING MOVE 
IN X 


CAN COMPUTER 
PLAY TRAP? 


RETURN 
W/ MOVE 
IN X 


GET RANDOM 
NUMBER 


RANDOM 
NUMBER > 
1.Q.? 


(NEXT PAGE) 


GET RANDOM 
MOVE, CHECKING 
FOR SPACE 
OCCUPIED 


RETURN 
W/ MOVE 
INX 


Fig. 11.40: Board Analysis Flowchart 
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MOVE 
NUMBER 1? 
NO 

MOVE 
NUMBER 4? 

NO 


CAN PLAYER 
SET TRAP? 


GET RANDOM MOVE 
FOR UNOCCUPIED 
SQUARE 


RETURN 
W/ MOVE 
INX 


ROWSUM 
OF EITHER 
DIAGONAL 
= 6? 


FIND RANDOM 
UNOCCUPIED SIDE 


RETURN W/ 
BLOCKING MOVE 
INX 


PLAY THERE? 


GET RANDOM 
MOVE 


Fig. 11.40: Board Analysis Flowchart (Continued) 


For the next situation we must look at move #4. It is the computer’s 
turn. In other words, the player started the game (move #1), the com- 
puter responded (move #2), then the player made his or her second 
move (move #3), and it is now the computer’s turn. In short, in the 
game thus far, the player has played twice and the computer has 


played once. At this point, we want to check to see if the first three 
moves have all been made along one of the diagonals. If so, since the 
player has made two moves and the computer has made one, the row- 
sum of one of the diagonals will be *'six."' The algorithm must check 
explicitly for this. If the first 3 moves have all been made along a 
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diagonal, the computer must move to a side position. This is a special 
situation which must be built into the algorithm, or it cannot be 
guaranteed that the computer (assuming the highest IQ level) will win 
every time. This situation is illustrated in Figure 11.41. Note that if 
straightforward logic was used, the algorithm would play into one of 
the free corners since a threat exists from the player that he or she 
might play there, and thereby set up a trap situation. The results of 
such an action are shown in Figure 11.42. By looking at this illustra- 


COMPUTER PLAYER 


O X O X 
x | x | XX 
O O OOJO 


COMPUTER PLAYER 
(WINS) 


Fig. 11.42: Falling Into the Diagonal Trap 
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tion, it can be seen that such a move would result in a loss. However, 
let us examine what happens if we play on one of the sides. This situa- 
tion is illustrated in Figure 11.43; it results in a draw. This is clearly the 
move that should be made. This is a relatively little-known trap in the 
game of Tic-Tac-Toe, and a provision must be built into the algorithm 
so that the computer will win. 


O 

AES X!XlO. XIX!o 
O 

ololx 


PLAYER COMPUTER PLAYER 


Fig. 11.43: Playing to the Side 


If it was not the fourth move, or if there was not a diagonal trap set, 
the next thing the computer should do is to check to see if the player 
can set a trap. (Refer to the flowchart in Figure 11.40.) If the player 
can set a trap, the computer plays in the appropriate square to block 
it. Otherwise, the computer moves to the center square, if available; if 
that is not possible, it moves randomly to any position. 

Since this algorithm was built in an ad hoc fashion, it is difficult to 
prove that it wins or achieves a draw in all cases. It is suggested that you 
try it on a board or that you try out the actual program on the Games 
Board. You will discover that in all conditions under which it has been 
tested, the computer always wins or achieves a draw. If the computer 
keeps winning, however, its IQ level will drop, and eventually it will 
allow the player to win. As an example, some sequences obtained on 
the actual board are shown in Figure 11.44. 
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Suggested Modifications 


Exercise 11-1: Designate a special key on the Games Board that, when 
pressed will display the computer's IQ level. 


Exercise 11-2: Modify the program so that the IQ level of the com- 
puter can be changed aí the beginning of each game. 


Credits 


The ad hoc algorithm which was described in this section is believed 
to be original. Eric Novikoff was the main contributor. ‘‘Scientific 
American” (selected issues from 1950 through 1978), as well as Dr. ` 
Harvard Holmes must also be credited with having provided several 
original ideas. 


Alternative Strategies 


Other strategies can also be considered. In particular, a short pro- 
gram can be designed by using tables of moves that correspond to 
various board patterns. The tables can be Short because when sym- 
metries and rotations are taken into account, the number of situations 
that can be represented is limited. This type of approach results in a 
Shorter program, however, the program is somewhat less interesting to 
design. 


Exercise 11-3: Design a Tic-Tac-Toe program using this type of table. 
THE PROGRAM 


The overall organization of the program is quite simple. It is shown 
in Figure 11.42. The most complex part is the algorithm that is used to 
determine the next move by the computer. This algorithm, called 
“FINDMOVE,”’ was previously described. 

Let us now examine the overall program organization. The cor- 
responding flowchart is shown in Figure 11.45. 


1. The computer IQ level is set to 75 percent. 

2. The user's keystroke is read. 

3. The key is checked for the value “F.” If it is an “F,” the player 
starts; otherwise the computer starts. Depending on the value 
of the key pressed, the flowchart continues into boxes 4 or 5, 
then to 6. 
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START 
l| serio. 1075% 


GET KEYSTROKE 


PLAYER = 0 
PLAYER = 1 


6 
NO 
PLAYER = 0? 
YES 


10 FIND COMPUTER'S 
MOVE 

11 PLAY COMPUTER’S 
MOVE 


PLAY PLAYER’S 
MOVE 


MOVE 
NUMBER 9? 


FLASH ALL LIGHTS 13 
No vts (16) 


Fig. 11.45: Tic-Tac-Toe Flowchart 
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16 


BLANK ALL LIGHTS 
BUT WINNING ROW 


OUTPUT HIGH TONE 


INCREMENT 1.Q. 
(NOT ABOVE 15) 


20 


OUTPUT LOW TONE 


DECREMENT 1.Q. 
(NOT LESS THAN 1) 


2] 


Fig. 11.45: Tic-Tac-Toe Flowchart (Continued) 


If the player starts (PLAYER is not equal to 0), then we move to 
the left side of the flowchart. 
7. The key, pressed by the player specifying his or her move, is 
read and the move is displayed on the board. 
8. Thecorresponding LED is lit on the board. It then becomes the 


computer's turn to play and the variable PLAYER is set to 
“0” in box 9. 


When exiting from box 6, if it is the computer's turn, we move to 
box 10. 

ll. The next move to be made by the computer must be computed 
at this time. 

This is the complex algorithm we have described above. 

11. Next, the computer's move is displayed. 

12. PLAYER is reset to “опе” to reflect the fact that it is now the 
player's turn. 

After either party has moved, the board is checked for a winning se- 
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quence of lights in box 13. If there is not a winning sequence of light 
we move to the left on the flowchart. 
14. We next check to see if all moves have been exhausted: w 


RWPI! —*-]| oo 


Data Structures RWPI3  —*»-/ 10 


0 
01 Ш 
check for move #9. If the ninth LED is lit and a winning situ we 
tion has not been detected, it is a draw, and all lights on th 02 En 
board must be flashed. FIRST 03 
15. We flash all the LEDs on the board. Then, we return to box SQUARE E 
and the next player plays. 04 KE 
When exiting from box 13, if there is a win situation, this fact mu: 05 
be displayed: ШЕ Ш 
16. АП оғ the lights are blanked except for the winning three LED: 06 Ш 
Next, it must be determined by the algorithm whether t 07 E REL 
player or the computer has won. mm 
17. A determination is made as to whether it was the player or the RWPI2 ——»( 08 E 
computer who won. If the computer has won, we branch to the 09 ра 
right on the flowchart. а) 
18. А low frequency tone is sounded. ОА —114 
19. The computer's IQ is decremented (to a minimum of 0). SECOND ов ар) 
The situation for a player win, shown in boxes 20 and 21, is analo- SQUARE ЖЕНЕБЕШЕ 
еш, х SES 
The general program flow is straightforward. Now, we shall examine op Seo TD 
the complete information. The subroutine which analyzes the board ret | | tlt] 
situation is called “ANALYZE” and uses UPDATE" as a subroutine OE 4 E pp 5 
to compute the values of various board positions. DE 2. 


The main data structure used by this program is a linear table with 
three entry points that are used to store the eight possible square 


alignments on the board. When evaluating the board, the program S 
will have to scan each possible alignment for three squares every time. THIRD 13 
In order to facilitate this process, all possible alignments have been SQUARE d 

listed explicitly, and the memory organization is shown in Figure 
11.46. 15 
The table is organized in three sections starting at RWPTI, i 

RWPT2, and RWPT3 (КҰРТ stands for ‘гоу pointer"). For exam- 
7 


ple, the first elements RWPT1, RWPT2, and RWPT3, for the first 
three-square sequence are looked at by the evaluation routine. The se- 
quence is: “0, 3, 6,” as indicated by the arrows in Figure 11.43. The 
next three-square sequence is obtained by looking at the second entry 
in each RWPT table. It is ‘‘1, 4, 7,"' which is, in fact, the second col- 


umn on our LED matrix. Fig. 11.46: Tic-Tac-Toe Row Sequences in Memory 
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The table has been organized in three sections in order to facilitate 
access. To be able to access all of the elements successfully, it will be 
necessary to keep a running pointer that can be used as an index for ef- 
ficient table access. For example, if we number our generalized rows 
of sequences from 0 to 7, “том” 3 will be accessed by retrieving 
elements at addresses RWPT1 + 3, RWPT2 + 3, RWPT3 + 3. (Itis 
the sequence “0, 1, 2," as seen in Figure 11.46.) 


Memory Organization 


Page 0 contains the RWPT table which has just been described, as 
well as several other tables and variables. The rest of the low memory 
is shown in Figure 11.47. 

The GMBRD table occupies nine locations and stores the status of 
the board at all times. A value of “опе” is used to indicate а position 
occupied by the player, and a value of “four” indicates a position oc- 
cupied by the computer. 

The SQSTAT table also occupies nine words of memory and is used 
to compute the tactical status of the board. 

The ROWSUM table occupies eight words and is used to compute 
the value of each of the eight generalized rows on the square. 

The RNDSCR table occupies six words and is used by the random 
number generator. 

The remaining locations are used by temporary variables, masks, and 
constants, as indicated in Figure 11.47. The role of each variable or con- 
stant will be explained as we describe each routine in the program. 


High Memory 


High memory locations are essentially reserved for input/output 
devices. Ports 1 and 3 are used, as well as interrupts. The correspond- 
ing memory map is shown in Figure 11.48. The interrupt-vector 
resides at addresses A67E and A67F. It will be modified at the begin- 
ning of the program so that interrupts will be generated automatically 
by the interval timer. These interrupts will be used to blink the LEDs 
on the board. 


Detailed Program Description 


At the beginning of each game, the intelligence level of the com- 
puter is set at 75 percent. Each time that the player wins, the IQ level 
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18 | BOARD STATUS | 
01 = PLAYER 


i 04 — COMPUTER H 
! | > 9 bytes 


9 bytes 


PLAYER — 1 


i EMPTY = 0 8 bytes 
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i 
i 
31 
32| SCRATCH PAD FOR RANDOM 


i NUMBER GENERATOR Д 


! | > 6 bytes 


DUR 


Temporaries for FINDMV 
routine (A and X Registers) 


2A| ЅОМ OF SQUARE VALUES ) 
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3F Frequency constant for tone 
40 ODDMSK Used to force an odd result 
41 INTEL IQ number (intelligence) 

! | 

! D 


50 PROGRAM AREA 


Fig. 11.47: Tic-Tac-Toe: Low Memory 
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Fig. 11.48: Tic-Tac-Toe: High Memory 


TIC-TAC-TOE 


will be raised by one point. Each time that the player loses, it will be 
decremented by one point. It is initially set at the value 12 decimal: 


START LDA #12 
STA INTEL Set IQ at 75% 


Initialization occurs next: 
RESTRT JSR INIT 


Let us examine the INIT subroutine which has just been called. It 
resides at address 0050 and appears on lines 0345 and following on the 
program listing. The first action of the initialization subroutine is to 
clear all low memory locations used by program variables. The loca- 
tions to be cleared are those between CLRST and CLREND (see lines 
41 and 57 of the program listing). Note that a seldom-used facility of 
the assembler — multiple labels for the same line — has been utilized 
to facilitate the clearing of the correct number of memory locations. 
Since it may be necessary to introduce more temporary variables in the 
course of program development, a specific label was assigned to the 
first location to be cleared, CLRST (memory location 18), and 
another to the last location to be cleared (CLREND). For example, 
memory location 18 corresponds both to CLRST and to GMBRD. 
The clearing operation should start at address CLRST and proceed 
forward fourty locations (CLREND-CLRST). Thus, we first load the 
number of locations to be cleared into index register X, then we use 
a loop to clear all of the required locations: 


INIT LDA #0 
LDX #CLREND-CLRST 
CLRALL STA CLRST,X Clear location 
DEX 
BPL CLRALL 


After low memory has been cleared, the two starting locations for the 
random number generator must be seeded. As usual, the low-counter 
of timer 1 is used: 


LDA TILL 
STA RNDSCR + 1 
STA RNDSCR + 4 
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Ports 1A, 1B, and 3B are then configured as outputs. The appropriate 
pattern is loaded into the data direction registers: 


LDA #$FF 

STA DDRIA 
STA DDR1B 
STA DDR3B 


All LEDs on the board are turned off: 


LDA #0 
STA PORTIA 
STA PORTIB 


Next, the interrupt vector’s address must be loaded with a new 
pointer. The address to be deposited there is the address of the inter- 
rupt handler, which has been designed to provide the regular blinking 
of the LEDs. (This process has already been explained in previous 
chapters.) The interrupt handler resides at address INTVEC. The high 
byte and the low byte of this address will be loaded in memory loca- 
tions IRQVH and IRQVL, respectively. A special assembler symbol is 
used to denote the low byte of the interrupt vector: #< INTVEC. Con- 
versely, the high byte is represented in assembly language by $7 
INTVEC. The new interrupt vector is loaded at the specified memory 
locations: 


JSR ACCESS 

LDA #<INTVEC 

STA IRQVL Low vector 
LDA # >INTVEC 

STA IRQVH High vector 


As usual, the interrupt-enable register must first be cleared, then the 
appropriate interrupt must be enabled: 


LDA #$7F 

STA IER Clear register 
LDA 42$CO 

STA IER Enable interrupt 


Timer 1 is set to the free-running mode: 
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LDA #$40 
STA ACR 


The latch for timer 1 is loaded with the highest possible count, 
*FFFF'': 


LDA #$FF 
STA TILL 
STA TICH 


Finally, interrupts are enabled, the decimal mode is cleared as a 
precaution, and we terminate the initialization stage: 


CLI 
CLD 
RTS 


Back to the Main Program 


We are now at line 69 of the program listing. We read the next key 
closure on the keyboard: 


JSR GETKEY 
It is the first move. We must determine whether it is an “F” or not. If 


it is an “F,” the player moves first; otherwise the computer moves 
first. Let us check it: 


CMP #$F 
BNE PLAYLP 


It is the player’s turn and this information is stored in the temporary 
variable PLAYR, shown in Figure 11.44: 


LDA #01 
STA PLAYR 


It is time for a new move, and the move counter is incremented by 
one. Variable MOVNUM is stored in low memory. This is shown in 


Figure 11.44. It is now incremented: 


PLAYLP INC MOVNUM 
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At this point, PLAYR indicates whose turn it is to play. If it is set at 
“zero,” it is the computer's turn. If it is set at ‘‘one,”’ it is the player's 
turn. Let us check it: 


LDA PLAYR 
BEQ CMPMU 


We will assume here that it is the player's turn. PLAYR is reset to 
“zero” so that the computer will make its move next: 


DEC PLAYR 


The player's move is received by the PLRMV subroutine which will be 
described below. Let us allow the player to play: 


JSR PLRMV 


The move made by the player is specified at this point by the contents 
of the X register. Since it was the player's move, the corresponding 
code on the board’s representation should be “01,” which will be 
deposited in the accumulator: 


LDA #01 


We will now display the move on the board by blinking the proper 
LED. In addition, the corresponding ROWSUM will automatically be 
updated: 


JSR UPDATE 


The UPDATE routine will be described in detail below. Once the 
move has been made, we should check for a possible win. In the case 
of a win, the player has three blinking LEDs in a row, and the cor- 
responding row total is automatically equal to *'three." We will 
therefore simply check all eight rows for a ROWSUM of three: 


LDA #03 
BNE WINTST 


At address WINTST a test is performed for a winning configura- 
tion. Index register Y is loaded with “зеуеп” and used as а loop 


258 


TIC-TAC-TOE 


counter. All of the rows, 7 through 0, are checked for the value 
“тее”: 


WINTST LDY #7 

TSTLP CMP ROWSUM,4 
BEQ WIN 
DEY 
BPL TSTLP 


Let us now continue with the player’s move. We will examine the 
computer’s move later. (The computer’s move corresponds to lines 
83-88 of the program listing, which have not been described yet.) A 
maximum of nine moves is possible in this game. Let us verify whether 
or not we have reached the end of the game by checking the value of 
MOVNUM, which contains the number of the current move: 


LDA MOVNUM 
CMP #9 
BNE PLAYLP 


This is the end of our main loop. At this point, a branch occurs back 
to location PLAYLP, and execution of the main program resumes. 

If we had reached the end of the game at this point, the game would 
be a tie, since there has not been a winner yet. At this point all of the 
lights on the board would be set blinking and then the game would 
restart. Let us set the lights blinking: 


LDA #$FF 
STA LTMSKL 
STA LTMSKH 
BNE DLY 


The delay is introduced to guarantee that the lights will be blinked for 
a short interval. Let us now examine the end-of-game sequence. 

When a win situation is found, it is either the player’s win or the 
computer’s win. When the player wins, the row total is equal to 
“three.” When the computer wins, the row total is equal to ‘‘twelve.”’ 
(Recall that each computer move results in a value of ‘‘four’’ for the 
square. Three squares in a row will result in 3 x 4 = 12.) If the com- 
puter won, its IQ will be decremented: 
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WIN CMP#12 
BEQ INTDN 


At this point a jump would occur to INTDN, where the intelligence 
level will be decreased (intelligence lowered). 

A losing tone will be generated to indicate to the player that he or 
she has lost. The corresponding frequency constant is “ЕЕ,” and it is 
stored at address FREQ: 


INTDN LDA #$FF 
STA FREQ 


The intelligence level will now be decreased unless it has already 
reached ‘‘zero’’ in which case it will remain at that value: 


LDA INTEL 
BEQ GTMSK 
DEC INTEL 


For a brief time the winning row will be illuminated on the board, and 
the end-of-game tone will be played. First, we clear all LEDs on the 
board: 


GTMSK LDA #0 
STA PORTIA 
STA РОКТІВ 


At this point, the number of the winning row is contained in index 
register Y. The three squares corresponding to that row will simply be 
retrieved from the RWPT table. (See Figure 11.43.) Let us display the 
first square: 


LDX RWPT1,Y 
JSR LEDLTR 


The LEDLTR routine will be described below. It lights up the 
square whose number is contained in register X. Let us now display 
the next square: 

LDX RWPT2,Y 
JSR LEDLTR 
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Then, the third one: 


LDX RWPT3,Y 
JSR LEDLTR 


At this point, we should turn off all unnecessary blinking LEDs on the 
board. The new pattern to be blinked is the one with the winning row 
and we must, therefore, change the LTMSKL mask: 


LDA PORTIA 
AND LTMSKL 
STA LTMSKL 


We now do the same for Port 1B: 


LDA PORTIB 
AND LTMSKH 
STA LTMSKH 


Exercise 11-4: Subroutine LEDLTR on line 125 of the program listing 
has just lit the third LED on the board for the winning row. Im- 
mediately after that, we start reading the contents of Port 1A, and 
then Port 1B. 

There is, however, the theoretical possibility that an interrupt might 
occur immediately after LEDLTR, that might change the contents of 
Port 1A. Would this be a problem? If it would not be a problem, why 
not? If it would, modify the program to make it always work correct- 
ly. 


At this point, Ports A and B contain the appropriate pattern to light 
the winning row. If the player has won, the blink masks LTMSKL and 
LTMSKH contain the same pattern, and will blink the row. We are 
now ready to sound the win or lose tone. The duration is set at “БЕ”: 


LDA #$FF 
STA DUR 


The frequency, FREQ, was set above. We simply have to play it: 


LDA FREQ 
JSR TONE 
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A delay must be provided: 
DLY JSR DELAY 


We are now ready to start a new game with the new intelligence level 
of the computer: 


JMP RESTART 


Back to WIN 


Let us now go back to line 103 of the program listing and examine 
the case in which the computer did not win (і.е., the player won). А 
different frequency constant is loaded at location FREQ: 


LDA #30 
STA FREQ 


Since the player won, the intelligence level of the computer will be 
raised this time. Before it is raised, however, it must be checked 
against the value ‘‘fifteen,”’ which is our legal maximum: 


LDA INTEL 
CMP #$0F 
BEQ GTMSK 
INC INTEL 


The sequence was exactly analagous to the one in which the computer 
wins, except for a different tone frequency, and for the fact that the 
intelligence level of the computer is increased rather than decreased. 


The Computer Moves 


Let us now go back to line 83 of the program listing and describe 
what happens when the computer makes a move. Variable PLAYR is 
incremented, then a delay is provided to simulate ‘‘thinking time” for 
the computer: 


COMPMV INC PLAYR 
JSR DELAY 


The computer move is determined by the ANALYZ routine described 
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below: 
JSR ANALYZ 


The computer's move is entered as a ‘‘four’’ at the appropriate 
location on the board: . 


LDA #04 
JSR UPDATE 


Next, we check all of the rows for the possibility of a computer win, 
i.e., for a total of ‘‘twelve’’: 


LDA #12 
WINTST LDY #7 


and so on. We are now back in the main program described previous- 
ly. 

When the program segment outlined above is compared to the one 
that is used for the player’s move, we find that the primary difference 
between the two is that the move was specified by the ANALYZ 
routine rather than being picked up from the keyboard. This routine is 
the key to the level of intelligence of the algorithm. Let us now ex- 
amine it. 


Subroutines 


The ANALYZE Subroutine 


The ANALYZ subroutine begins at line 143 of the program listing. 
The corresponding conceptual flowchart is shown in Figure 11.40. In 
the ANALYZ subroutine the ODDMSK is first set to *'zero."' 


ANALYZ LDA #0 
STA ODDMSK 


We now check for the possibility of a computer win during its next 
turn. If that possibility exists, we clearly must play into the winning 
square. This will end the game. A winning situation is characterized by 
a total of ‘‘eight’’ in the corresponding row; therefore let us deposit 
the total “eight” into the accumulator: 
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LDA #08 


A winning situation will occur when the squares in rows 1, 2, or 3 all 
total **three"' at the same time. Let us set our filter variable, X, for the 
number of rows that qualify, to ‘‘three’’: 


LDX #03 


We are now ready to use the FINDMV routine: 
JSR FINDMV 


The FINDMV routine will be described below. It must be called with 
the specified ROWSUM in A and with the number of times a match is 
found in X. It will systematically check all of the rows and squares. If 
a square is found, it exits with a specified square number in X and the 
Z flag is set to “0.” Let us test it: 


BNE DONE 


If a winning move has been found, the ANALYZ routine exits. Unfor- 
tunately, this is not usually the case, and more analysis must be done. 

The next special situation to be checked is to see if the player has a 
winning move. If so, it must be blocked. A winning situation for the 
player is indicated by a row total of ‘‘2.’’ Let us load “2” into the ac- 
cumulator and repeat the previous process: 


LDA #02 
LDA #03 

JSR FINDMV 
BNE DONE 


If the player could make a winning move, this is the square where the 
computer should play and we exit to DONE; otherwise, the situation 
should be analyzed further. 

We will now check to see if the computer can implement a trap. A 
trap corresponds to a situation in which a computer move has already 
been made in the same row. We would like to play at the intersection 
of two rows containing computer moves. This was explained above 
when the algorithm was described. This situation is characterized by A 
= 4and X = 2. Let us load the registers with the appropriate values 
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and call the FINDMV routine: 


LDA #04 
LDX #02 

JSR FINDMV 
BNE DONE 


If we succeed, we exit to DONE; otherwise, we proceed down the 
flowchart diagrammed in Figure 11.40. 

It is at this point that the computer can demonstrate either in- 
telligent or ill-advised play. The behavior of the computer will be 
determined by its intelligence level. We will now obtain a random 
number and compare it to the computer’s IQ. If the random number 
exceeds the computer’s IQ, we will proceed to the left side of the 
flowchart in Figure 11.40 and make an ill-advised move (i.e., a random 
one). If the random number does not exceed the computer’s IQ, we 
will make an intelligent move on the right side of the flowchart. Let us 
generate the random number: 


JSR RANDOM 


We truncate the random number to its right byte so that it does not ex- 
ceed fifteen: 


AND #$0F 
and we compare it to the current IQ of the computer: 


CMP INTEL 
BEQ OK 
BCS RNDMV 


If the random number is higher than the IQ level stored in INTEL, we 
branch to RANDMV and play a random move. At this point, we will 
assume that the random number was not greater than the IQ level, and 
that the computer will play an intelligent move. We now proceed from 
line 162 (location “ОК”). 

We will first check to see if this is move #1; then we check to see if 
this is move #4. Let us check for move #1: 


OK LPX MOVNUM 
CPX #1 
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If it is move #1, we occupy any square: 
BEQ RNDMV 

Let us now check for move #4: 
CPX #4 


If it is not move #4, we will check to see if the player can set a trap. 
This will be performed at location TRAPCK. Let us assume here that 


it is move #4. 


BNE TRAPCK 


This section will check both diagonals for the possibility of the se- 
quence player-computer-player. If this sequnce is found, we will play 
to the side. Otherwise, we will go back to the mainstream of this 
routine and check to see if the player can set a trap. The combination 
player-computer-player in a row is detected when the row totals 
“six.” Therefore, we load the value ‘six’? into the accumulator and 
check the corresponding diagonal. By coincidence, diagonals corre- 
spond to the sixth and seventh entires in our RWPT table. (See 


Figure 11.46.) Let us do it: 


LDX #6 

TXA 

CMP ROWSUM,X 
REQ ODDRND 


If a match is found, we branch to address ODDRND, where we will 
play to the side. This will be described below. If a match is not found 
we check the next diagonal: 


INX 
CMP ROWSUM,X 
BEQ ODDRND 


If, at that point, the test also fails for the second diagonal, we will 
check to see if the player can set a trap. 
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Checking To See If the Player Can Set a Trap (TRAPCK) 


The possibility of a trap for the player is identified (as in the case of 
the computer), when two intersecting rows each contain only a 
player's move. This has been explained in the description of the 
algorithm above. The value of a row which is a candidate for a trap is 
thereby equal to “опе”? (one player's move). The parameters must, 
therefore, be set to A = 1, and X = 2 before we can call the 
FINDMV routine: 


TRAPCK LDA #1 
LDX #2 
JSR FINDMV 
BNE DONE 


If the proper location for a trap can be found, the next move is to play 
there. Otherwise, if possible, the computer moves to the center or, if 
the center is occupied, it makes a random move on the side. 


LDX GMBRD + 4 
BNE RNDMV 
LDX #5 

BNE DONE 


Playing a Random Move on the Side 


The four sides on the board are numbered externally 2,4,6 and 8, or 
internally 1,3,5, and 7. Any odd internal number specified for a move 
will result in our occupying a side position. If we want to occupy a side 
position, we simply load the value “опе” in ODDMSK, and we 
guarantee that the random number generated will be one of the four 
corners. This is performed by entering at address ODDRND: 


ODDRND LDA fH 
STA ODDMSK 


Generally, however, we may want to make a random move. This will 
be accomplished by generating and using any random number that is 
reasonable, i.e., by setting ODDMSK to 407 prior to entering at ad- 
dress RNDMV. Let us obtain a random number: 
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RNDMV JSR RANDOM 


Let us strip off the left byte: 
AND #$0F 


Then let us OR this random number with the pattern stored in ODDMSK. 
If the mask had been set to 0,7 it would have no effect on the random 
number. If the mask had been set to “1,7” however, it would result in 
our playing into one of the corners (the center is occupied here): 


ORA ODDMSK 


Since the random number which was generated was between “0” and 
“16 we must check to be sure that it does not exceed ‘‘9’’; other- 
wise, it cannot be used: 


CMP #9 
BCS RNDMV 


We must now check to make sure that the space into which we want 
to move is not occupied. We load the square’s number into index 
register X and verify the square’s status by reading the appropriate en- 
try of the GMBRD table (see the memory map in Figure 11.47): 


TAX 
LDA GMBRD,X 


If there is any entry other than “0” in this square, it means that it is 
occupied and we must generate another random number: 


BNE RNDMV 
We have selected a valid square and will now play into it. When we ex- 
it from this routine, the external LED number should be contained in 
X. It is obtained by adding “17 to the current contents of X, which 
happens to be the internal LED number: 


INX 
DONE RTS 
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FINDMV Subroutine 


This subroutine will evaluate the board until it finds a square which 
meets the specifications in the A and the X registers. The accumulator 
A contains a specified row-sum that a row must meet in order to 
qualify. Index register X specifies the number of times that a par- 
ticular square must belong to a row whose row-sum is equal to the one 
specified by A. 

The FINDMV subroutine starts with a square status of “0” for 
every square on the board. Every time it finds a square that meets the 
row-sum specification, it will increase its status by ‘‘1.’’ Thus, at the 
end of the evaluation process, a square with a status of “417? is a square 
which meets the row-sum specifications once. A square with a status 
of “27 is one that meets the specification twice, etc. 

The final selection is performed by FINDMV, which checks the 
value of each square in turn. As soon as it finds a square whose status 
matches the number contained in register X, it selects that square 
as one that meets the initial specification. 

The complete flowchart for FINDMV is shown in Figure 11.49. 
Essentially, the subroutine operates in three steps. These steps are in- 
dicated in Figure 11.49. Step 1 is the initialization phase. Step 2 cor- 
responds to the selection of all squares that meet the row-sum 
specifications contained in register A. The status of every empty 
square in a row that meets this specification is increased by one as all 
the rows are scanned. Step 3 is the final selection phase. In this phase, 
each square is looked at in turn until one is found whose status match- 
es the value contained in X. As soon as one is found, the process 
stops. That square is the one that will be played by the computer. If a 
square is not found, the routine will exit, with the index X having 
decremented to **0,"' and this will be used as a failure flag for the call- 
ing routine. 

Let us now examine the corresponding program. It starts at line 204 
in the program listing. 


Step 1: Initialization 


Index registers X and A will be used in the body of this subroutine. 
Their initial contents must first be preserved in temporary memory 
locations. Addresses TEMP1 and TEMP2 are used for that purpose. 
(See Figure 11.47 for the memory map.) 

Let us preserve X and A: 
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STEP 1 
INITIALIZATION 


STEP 2 
COMPUTING 
STATUS 
(A-SELECTION) 


STEP 3 
FINAL SELECTION 
(A AND X) 
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FINDMV 
SAVEX ANDA 
PARAMETERS 
CLEAR SQUARE 
STATUSES 


CHEKLP 


GET 1ST SQUARE 
IN ROW 


YES 


INCREMENT ITS 
STATUS 


NO 
CHECK 2ND SQUARE 


NEXT ROW 
CHECK 3RD SQUARE 


NO 
NO 
(NOCHEK) 
YES 


CHECK ROWSUM 
AGAINST SPECIFIED 
VALUE 


CHECK LAST SQUARE 


SQUARES NEXT SQUARE 


STATUS = Sy NO 
XPARAMETER 


YES 


OUT 
PLAY THIS 
SQUARE 


Fig. 11.49: FINDMV Flowchart 
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FINDMV STX TEMP2 
STA TEMPI 


The status of the board is then cleared. Each square's status must be 
set to **0."' This is accomplished by loading the value “0” into the ac- 
cumulator, then going through a nine cycle loop that will clear the 
status of each square in turn: 


LDA #0 

LDY #8 
CLRLP STA SQSTAT,4 

DEY 

BPL CLRLP 


Step 2: Computing the Status of Each Square 


Each of the eight possible row-sums will now be examined in turn. 
If the row-sum matches the value specified in the accumulator on 
entry, each empty square within the specified row will have its status 
incremented by “1.7 If the row-sum value does not meet the minimum, 
the next one will be examined. Index register Y is used as a row pointer. 
The RWPT table described at the beginning of this program and shown 
in Figure 11.46 will be used to successively retrieve the three squares 
that form every row. Let us first initialize our counter: 


LDY #7 
Now, we will check the value of the corresponding row-sum: 


CHEKLP LDA TEMPI 
CMP ROWSUM,Y 
BNE NOCHEK 


Let us assume at this point that the row-sum is indeed the correct one. 
We must now examine each of the three squares in the row. If the 
square is empty, we increment its status. The first step is to obtain the 
square’s value by looking it up in the table, using index register Y as a 
displacement, and using addresses RWPT1, RWPT2, and RWPT3 
successively as entry points into the row table. Let us try it for the first 
square: 
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LDX RWPTI,Y 


Index register X now contains the square number. If the square is 
empty, a new subroutine, CNTSUB, is used to increment its status: 


JSR CNTSUB 


It will be described below. 
Let us now do the same for the second and third squares: 


LDX RWPT2,Y 
JSR CNTSUB 
LDX RWPT3,Y 
JSR CNTSUB 


We have now completely scanned one row. Let us look to see if any 
more rows need to be checked: 


NOCHEK DEY 
BPL CHECKLP 


The process is repeated until all the rows have been checked. At this 
point, we enter into step 3 of FINDMV. (Refer to the flowchart in 
Figure 11.49.) 


Step 3: Final Selection 


Index register X will be used as a square pointer. It will start with 
square #9 and continue to examine squares until one is found that 
meets the additional X register specifications, i.e., the number of 
times that the given square belongs to a row with the appropriate row- 
sum value. Let us initialize it: 


LDX #9 


Now, we compare the value of the square status with the value of the 
specified X parameter: 


FNMTCH LDA TEMP2 
AND SQSTAT-1,X 


272 


TIC-TAC-TOE 


If the square status matches the value of the parameter, we select this 
square: 


BNE FOUND 
Otherwise, we try the next one: 


DEX 
BNE FNMTCH 
FOUND RTS 


Exercise 11-5: Why are “АМО” and “BNE” rather than “СМР? and 
“BEQ” used to find a matching square above? (Hint: decide what the 
difference in the program's strategy would be.) 


COUNTSUB Subroutine 


This subroutine is used exclusively by the FINDMV subroutine and 
increments the status of the square whose number is in register X, if 
the square is empty. First, it examines the status of the square by look- 
ing for its code in the GMBRD table: 


CNTSUB LDA GMBRD,X 
BNE NOCNT 


If the square is occupied, an exit occurs. If it is not, the status value of 
the square is incremented: 


INC SQSTAT,X 
NOCNT RTS 


UPDATE Subroutine 


Every time a move is made, it must be displayed on the board. 
Then, the appropriate code must be stored in the board representa- 
tion, i.e., in the table GMBRD. Finally, the new ROWSUMs must be 
computed and stored at the appropriate locations. These functions are 
accomplished by the UPDATE subroutine. 

The player's code is contained in the accumulator. The position into 
which the move is made is contained in register X. Since the number in 
index register X is the value of an external LED, it is first decremented 
in order to match the actual internal LED number: 
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UPDATE DEX 


The value must now be stored in the appropriate location of the GMBRD 
table which contains the internal representation of the board: 


% 


STA GMBRD,X 


Note that the value of X is simply used as a displacement into the 
table. However, the accumulator happens to contain the appropriate 
code that is merely written at the specified location. At this point, UP- 
DATE would like to display the move on the LEDs. It must first 
decide, however, whether to light a steady LED or make it blink. To 
do this, it must determine whether it is the player's move or the com- 
puter's move. It does this by examining the code contained in the ac- 
cumulator. If the code is **four," it is the computer's move. If the 
code is ‘‘1,” it is the player's move. Let us examine it: 


CMP 404 
BEQ NOBLNK 


If it is the computer's move, a branch will occur to address NOBLNK; 
otherwise, we proceed. Let us assume for the time being that it was the 
player's move: 


JSR LIGHT 


The LIGHT subroutine is used to set the bit blinking and will be 
described below. Upon exit from LIGHT, the accumulator contains 
the bit in the position that is required to set the LED blinking. At this 
point, the blink masks should be updated: 


ORA LTMSKL 
STA LTMSKL 


If the carry was ‘‘zero’’ upon completion of LIGHT, one of the bits 
zero through seven had been set and we are done: 


BCC NOBLNK 
Otherwise, if the carry had been set to 1, it would mean that LED #9 


had to be set, i.e., that the high order part of the mask had to be 
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modified. Let us do it: 


LDA #01 
STA LTMSKH 


At this point, the LED masks are properly configured and we can give 
the order to light the LEDs: 


NOBLNK JSR LEDLTR 


The LEDLTR routine lights up the LED specified by register X. Note 
that if it was a computer move, this LED will remain steadily on. If it 
was a player’s move, this LED will be turned off and on automatically 
as interrupts occur. 

Next, we must update all row-sums. Index register X is used as a 
row pointer. We will look at all eight rows in turn. In anticipation of 
the addition, the carry bit is cleared: 


LDX #7 
ADDROW CLC 


The first square of row eight is examined first: 
LDY RWPTI,X 


Note that index register Y will contain the internal square number 
following this instruction. This will immediately be used for another 
indexed operation. The contents of the square will be read so that the 
new row-sum may be computed. (The row-sum for that row may or 
may not be the same as before. No special provision has been made 
for restricting the search to the two or three rows affected.) All rows 
are examined in turn, and all row-sums are re-computed to keep the 
program simple. 
Let us obtain the current square's value: 


LDA GMBRD,Y 
The GMBRD table is accessed using index register Y as a displace- 
ment. Note that the two instructions shown above implement a two- 


level indexing operation. This is a most efficient data retrieval tech- 
nique. At this point, the accumulator contains the value of the first 
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square. It will be added to the value of the two following squares. The 
process will now be repeated: 


LDY RWPT2,X 
ADC GMBRD,Y 


The number of the second square has been looked up by the LDY in- 
struction and its value stored in Y. The addition instruction looks up 
the actual value of that square from GMBRD, and adds that value to 
the accumulator. This process is performed one more time for the 
third square: 


LDY RWPT3,X 
ADC GMBRD,Y 


The final value contained in the accumulator is then stored in the . 


ROWSUM table at the position specified by the value of index register 
X (the row index): 


STA ROWSUM,X 
The next row will now be scanned: 


DEX 
BPL ADDROW 


If X becomes negative, we are done: 
RTS 


LED LIGHTER Subroutine 


This subroutine assumes upon entry that register X contains the in- 
ternal LED number of the LED on the board which must be turned on. 
The subroutine will therefore turn that LED on using the LIGHT 


subroutine, which converts a number in register X into a bit pattern in 
the accumulator for the purpose of turning on the specified LED: 


LEDLTR JSR LIGHT 


At this point, either Port 1A or Port 1B must be updated. Let us 
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assume initially that it is Port ІА (if it is not Port 1А, which we can 
find out by examining the carry bit below, then the pattern contained 
in the accumulator is all zeroes and will not change the value of Port 
1A): 


ORA PORTIA 
STA PORTIA 
BCC LTRDN 


The carry bit is tested. If it has been set to 1 by the LIGHT subroutine, 
then LED 49 must be turned on. This is accomplished by sending a 
“1” to Port 1B: 


LDA #1 
STA PORTB 
RTS 


PLRMV Subroutine (Player’s Move) 


This subroutine obtains one correct move from the player. It chirps 
to get his or her attention and waits for a keyboard input. If a key 
other than 1 through 9 is pressed, it will be ignored. Whenever the 
subroutine gets a move, it verifies that the square on the board is in- 
deed empty. If the square is not empty, the subroutine will ignore the 
player’s move. Let us first generate a chirp in order to get the player’s 
attention: 


PLRMV LDA #$80 
STA DUR 
LDA #$10 
JSR TONE 
Now, let us capture the key closure: 


KEYIN JSR GETKEY 


We must now check to see that the key that is pressed is between 1 and 
9. Let us first check to see that it is not greater than or equal to 10: 


CMP #10 
BCS KEYIN 


Let us now verify that it is not equal to ‘‘zero’’: 
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TAX 
BEQ KEYIN 


Finally, let us verify that it does not correspond to a square that is 
already occupied: 


LDA GMBRD-1,X 
BNE KEYIN 
RTS 


Exercise 11-6: Modify the PLRMV subroutine above so that a new 
chirp is generated every time a player makes an incorrect move. To tell 
the player that he or she has made an incorrect move, you should 
generate a sequence of two chirps, using a different tone than the one 
used previously. 


LIGHT Subroutine 


This subroutine accepts an LED number in register X. It returns 
with the pattern to be output to the LEDs in the accumulator. If LED 
9 is to belit (X = 8), the carry bit is set. This subroutine is straightfor- 
ward and has been described previously: 


LIGHT ` STX TEMPI 
SEC 
ROL A 
DEX 
BPL SHIFT 
LDX TEMP! 
RTS 


DELAY Subroutine 


This is a classic delay subroutine that uses two nested loops that 
have a few extra instructions within the loop that are designed to waste 
time: 


DELAY LDY #$FF 
DLI LDX #$FF 
DL2 ROL DUR 
ROR DUR 
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DEX 
BNE DL2 
DEY 
BNE DL1 
RTS 


Interrupt Handling Routine 


Every time that an interrupt is received, the appropriate LEDs will 
be complemented (turned off if on, or on if off). The positions of the 
LEDs to be blinked are specified by the contents of the LTMSK 
masks. Two bytes are used in memory for the low and high halves, 
respectively. (See Figure 11.47 for the memory map.) 

Turning the bits on or off is accomplished by an exclusive-OR in- 
struction that is the equivalent of a logical complementation. Since 
this routine uses the accumulator, the contents of A must be preserved 
at the beginning of the routine. It is pushed onto the stack and 
restored upon exit. The subroutine is shown below: 


INTVEC PHA 
LDA PORTIA 
EOR LTMSKL 
STA PORTIA 
LDA PORTIB 
EOR LTMSKH 
STA PORTIB 
LDA TILL 
PLA 
RTI 


Exercise 11-7: Notice the LDA TILL instruction above. The next in- 
struction in this subroutine is PLA. It will overwrite the contents of 
the accumulator with the words pulled from the stack. The contents of 
the accumulator, as read from TILL, will therefore be immediately 
destroyed. Is this a programming error that was accidentally left in 
this program? If not, what purpose does it serve? (Hint: this situation 
has been encountered before. Refer to one of the earlier chapters.) 


INITIALIZE Subroutine 


This subroutine was described in the body of the main program 
above. 
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RANDOM and TONE Subroutines 


These two subroutines were described in previous programs. 


SUMMARY 


This program was the most complex we have developed. Several 
algorithms have been presented, and one complete implementation of 
an ad hoc algorithm has been studied in great detail. Readers interested 
in games of strategy and programming are encouraged to implement 
an alternative algorithm. 


LINE # LOC LINE 


0002 0000 “TICTAC’ 


0003 0000 3 FROGRAM TO PLAY TIC-TAC-TOE ON 5ҮМ-1 
0004 0000 COMPUTER WITH 3X3 ЕП MATRIX AND HEX KYED. 
0005 0000 5 AT BEGINNING OF GAME» IF 'F' KEY IS 
0006 0000 $PRESSEI PLAYER GOES FIRST; ANY OTHER KEY» 
0007 0000 $3COMPUTER GOES FIRST. THEREAFTER? TO MAKE 
0008 0000 ФА MOVE» PRESS KEY CORRESPONDING TO NUMBER 
0009 0000 ОЕ SQUARE DESIRED. 

0010 0000 $ 

0011 0000 $LINRAGES? 

0012 0000 $ 

0013 0000 GETKEY = $100 


0014 0000 ACCESS = $886 

0018 0000 $ 

0016 0000 31/0: 

0017 9000 ; 

0018 0000 PORTIA = $6001 RX 6522 VIA fi... 

9019 0000 PORIA = $6003 

0020 0000 FORTIKE = $4000 

0021 0000 ІШКІН = $4002 ЕЕ 
0022 9000 ТЕК = ФАООЕ ФІМТЕККШМРТ ENABLE REGISTER. 


0023 0000 ACK $A00B 36UXILIARY CONTROL REGISTER. 
0024 0000 TILL = $6004 $TIMER 1 LATCH LOW, 
0025 0000 T1icH = $5005 $TIMER 1 LATCH HIGH. 
0026 0000 FORT3H = $ACOO PXX*6522 VIA f3.... 
0027 0000 ПКВ = $ACO2 

0028 0000 IRQVL = $A67E 

0029 0000 IRQUH = $A67F 

0030 0000 $ 

0031 0000 ТАНЕ OF SQUARES IN BOARD'S 8 ROWS. 

0032 0000 E 

0033 0000 x = 0 

0034 0000 5 

0035 0000 00 КЫРТ «BYTE 0,91»2,0»92»6,0э2 


0035 0001 01 
0035 0002 02 
0035 0003 00 
0035 0004 03 
0035 0005 06 
0035 0006 00 
0035 0007 02 
0036 9008 0% RUFT2 «BYTE 3,4»5,1,4%7,4,4 
0036 0009 04 
0036 000A 05 
0036 000в Oi 
0036 0006 04 
0036 000П 07 
0036 000E 04 
00368 000Ғ 04 


0037 BYTE 6,7»,8,2,5,8,8,6 


RUFT3 


Fig. 11.50: Tic-Tac-Toe Program 
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$UARIABLE STORAGES: 


, 
CLRST 
GMBRE Ж-хж49 


TIC-TAC-TOE 


318T LOC. TO ВЕ CLEARED RY 'INIT'. 
САМЕ ROARIPLAYER'/S FOSITIONS ON 


FROARL AS $01-PLAYER» $04-COMPUTER, 


SQSTAT x*-x49 
ROUSUM ж=ж+8 


?SQUARE'S TACTICAL STATUS. 
:8UM OF VALUES OF SQUARES IN 


PROW? WHERE 1-PLAYER; 
34-COMFUTER»: ОзЕМРТҮ. 


RNDISCR 
ТЕМРІ 
TEMF2 
MOUNUM 
FLAYR 
LTMSKH 
LTMSRL. 
DUR 
FREQ 
CLREND 
ODDMSK 


SRNE # GEN. SCRATCHFAL, 


МЫМВЕК OF CURRENT МОЧЕ, 
WHO'S TURN IT IS. 
*HIGH ORDER BLINK MASK FOR LED'S 
FLOW ORDER SAME. 

DURATION FOR TONES. 

FREQUENCY OF TONES. 
SLAST LOC TO ВЕ CLEARED BY ‘INIT’, 
;MAKES PRODUCT OF RANDOM MOVE 


3GENERATOR ODD TO FICK CORNER, 


INTEL Ж-хФі 


$ INTELLIGENCE QUOTIENT, 


ЖЖЖЖЖЖ MAIN PROGRAM ЖЖЖЖЖЖ 


= $200 
М 
START #12 
E INTEL 
RESTRT JSR INIT 
GETKEY 
*$F 
FLAYLP 
#01 
PLAYR 
MOUNUM 
PLAYR 
COMFMU 
FLAYR 
FLRMU 
+01 
UPDATE 
#03 
WINTST 
COMFMU INC PLAYR 
DELAY 
t ANALYZ 
#04 
UPDATE 
#12 
WINTST #7 
TSTLF ROUSUM » Y 
WIN 


TSTLF 
MOUNUM 


LTMSRL. 
І.ТМ5КН 
THY 
#12 
INTEN 


Fig. 11.50: Tic-Tac-Toe Program (Continued) 


ISET 1.0. AT 75% 
INITIALIZE FROGRAM. 

IGET FIRST MOVE DETERMINER, 
3IS IT Р? 


$YES» FLAYER FIRST. 


$COUNT THE MOVES. 

$WHO'S TURN? 

ЗІК Or "UTER^S MOVE, 
PFLAYER'/S TURN? COMPUTER NEXT, 
IGET PLAYER'S MOVE 
STORE PLAYER’S PIECE. 

$PFLAY IT» AND UPDATE ROWSUMS. 
т.000 PATTERN FOR WIN SEARCH. 
sCHECK FOR WIN. 

$COMPUTER^S TURN; PLAYER NEXT. 
TIME FOR COMPUTER TO 'THINR'. 
FIND COMPUTER^S MOVE 

STORE COMPUTER^S PIECE. 

PLAY IT. 

ОЛО FATTERN FOR W 

FLOOR 7X TO CHE RO 

SFOR WINNING Е 

$WIN IF PATTERN FOUND. 

PLOOF ANE 

ITRY AGAIN, 

ТЕ MOVE NUMBER = 9» 

$TH GAME IS TIE. 


Ls 5 IF NOT, 
LIGHTS TO BLINKING. 


THEM BLINKING A WHILE. 
UTER WIN? 
ES: 1.0. ПОИМ. 
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#30 sLOAL FREQ. CONST FOR WIN TONE, 0175 “ОЗПҒ А2 02 LOX #2 


JSR FINIMU 

FREQ 1 

TATER TONE $IF YES» PLAY BLOCK. 
SOF : AS HIGH AS POSSIP GMBRIM-A 318 CENTER 


7 DON'T CHANG RNDMY FOCCUPTEN? 


GTMSN 
i 3NO? FLAY IT. 


INTEL 1.0. 
GTMSK ASH ROW. 
INTIIN "A *$FF SLOAN FREQ. CONST. FOR LOSE TONE, 


FREQ 


1 ОКМ LIA #1 SET OLEMASK TO 1, 50 
0183 O2FO 85 40 STA OnfnMSK $MOUE WILL RE A SIDE. 


REL. е атов 0184 02F2 20 94 00 RNIMU JSR RANDOM GET RANDOM # FOR МОЧЕ, 
GTMSK $1F YES, DON'T DECREMENT! 0185 02Ғ5 29 OF so ANT *$0F — ЎМАКЕ IT 0-15. 
INTEL $1.0. TOWN, 0188 02F7 05 40 ORA ONDMSK PMAKE ОПЛ t IF CORNER NEEDED, 
+0 PCLEAR ALL LENS. 0187 O2F9 C9 09 CMP #9 $NUMBER TOO HIGH? 
FORTIA 0188 O2FR ВО FS ECS RNTIMY SIF YES, GET ANOTHER. 
PORTIB 0189 О2ҒП AA TAX 
RUPTi»Y 3GET KIT IN ACCUM. TO LIGHT 0190 0O2FE BS 18 LIA GMBRIGX $SFACE OCCUPIER? 
LEL CORRESFONDING TO 18T SQUARE 0191 0300 ПО ҒО BNE RNDMU SIF YES; GET ANOTHER MONE. 
0192 0302 ЕВ INX Ў INCREMENT X TO MATCH OUTPUT OF'FENTIMU, 


JIN WINNING ROW, 


JSR LEDLTR 0193 0303 40 "ONE RTS ?RETURN W/ MOVE IN Y. 
LUX RWFT2»Y — $GET SECOND 0194 0304 ; 
JSR LEDLTR 0195 0304 ў ЖЖЖЖЖЖ SUBROUTINE ЕТМ MOVE” ook 
LUX RUPTZ»;Y — $GET 3RI! RIT, 0196 0304 ;FINDS A SQUARE MEETING SPECIFICATIONS 
JSR LETILTR 0197 0304 ;PASSED IN IN A AND X. 
LIA PORTIA MASK OUT UNNECESSARY RITS IN 0198 0204 INDEX REGISTER X CONTAINS 
ANI! LTMSKL ELINK MASKS. 0199 0304 $MASK THAT» WHEN ОК”ЕП WITH 
STA LTMSKL 0200 0304 JNUMBER OF TIMES A SQUARE FITS ROWS WITH 
LDA PORTA 0201 0304 PROMSUM IN ACCUM,» MUST YIELD ^ ONE 
ESAE EAM, Е 9304 ЎРОК SQUARE TO QUALIFY. 
STA ETHSRH KADEER EE 0204 0304 84 39 FINDMU STX ТЕНР2 ?S80UE REGISTERS 
nmm Ж В А 4 INIMU STX TEMP2 6 "EGISTERS 5 
LpA а #SET WIN/LOSE ТОМЕ DURATION, 0205 0306 85 3B STA TEMP! 
E 0206 0308 лә 00 LIA #0 PCLEAR SQUARE STATUS REGISTERS. 
ane FRER eas 0207 0504 АО 08 LIY #8 
- MR MS 2 2 2 CLRLE ^ S T 
nLY JSR DELAY DELAY TO SHOW WIN OR ТТЕ, 2: one a 1 00 CLRLF ата SQSTAT;Y 
JMP RESTRT ESTART NEU GAME» DON'T CHNG. 1.0. 0210 0310 10 FA BPU CLER 
ў ЖЖЖЖЖЖ SUBROUTINE “ANALYZE” WOK E EA no 92 mit Ере а? PLOOR 7X x 
DOES A STATIC ANALYSIS OF GAME BOARD», AND 212 1 314 CHENLP Lia ТЕМРІ PDOES ROMSUM 
;mOES | Ұмы ралы 0213 0316 19 2^ 00 CMF ROUSUM;Y $MATCH PARAMETER? 
#RETURNS WITH A MO -GISTER X. 0214 0319 ШО ОҒ BNE NOCHEK FIF NOT: TRY NEXT. 
: A sie DESDE Uh 0215 ОЗІН Bá 00 LIX RUFTÍ;Y #СНЕСК 1ST SQUARE IM RO 
ua Е c UN eR E 0216 0310 20 39 03 JSR CNTSUE FINCREMENTITS STATUSTE IT’S EMPTY, 
БЫҒА > ИМА КЕЗЕН A 0217 0320 Bá 08 | LIX RUPT2;Y SIO 2ND SQUARE. 
LEX #03 3COMPUTER. 5 0218 0322 20 39 o3 JSR CNTSUR 
JSRUETNDHO 0219 0325 Bé 10 — LEX RUPTZ;Y SAND THIRE. 
BNE DONE SIF FOUNI» RETURN. 0220 90557 20 39 03 i _ JSR CNTSUR . | 
LNA #02 SCHECK FOR WINNING MOVE FOR 0221 032A 88 — NOCHEK DEY . TRY NEXT ROW. 
LOX £03 S PLAYER, 0222 0325 10 E7 BPL CHEKLF 
Dono ae 0223 0320 42 09 LEX #9 
BNE DONE $1F FOUND, RETURN. 0224 032F AS 39 FNMTCH LIA TEMF2 SLOAD PARAMETER. . 
LHA #04 SCAN COMEL SET A TRAP? 0225 0331 35 20 AND SQSTAT-1;X 7 (SQUARE STATUS) ANT PARAM) 0? 
LUX to2 0226 0333 10 03 BNE FOUND SIF YES» PLAY X AS МОЧЕ. 
FINDMU 0227 0335 CA DEX $TECREMENT ANID TRY NEXT SQSTAT. 
: DONE ТЕ YES, PLAY IT. 0228 0236 П0 F7 ЕМЕ FNMTCH 
t RANDOM $6ET A RANDOM NUMR 0229 0338 60 FOUNI RTS 
ФОЕ 4 0230 0339 ў 
0159 INTEL ЎРОК USE ! 0231 0339 ў ЖЖЖЖЖЖ SUBROUTINE 'COUNTSUR^ ЖЖЖЖҰЖ 
2157 DE PIE HOT à 0232 0339 INCREMENTS SQSTAT OF EMPTY SQUARES. 
0161 0265 RNIIMU STE RNE 0233 0339 —— ; "n и 
0162 0307 MOUNUM 0234 0339 BS 18 CNTSUR LIA GMERD;X GET SQUARE. 
cab cun 2: 0235 033Н П0 02 E NOCNT FIF FULL; SKIP. 
Giza. Goce RNIIMU FLAY ANY SQUARE, 0236 0330 Fé 21 INC SQSTAT;X $ INCREMENT SQSTAT 
1 2CH RÀ PATI Mole? 0237 033F 40 NOCNT RTS DONE. 


0165 0201 


poet РСК ТЕ МОТ» CONTINUE. 0238 0340 ; 
0166 ozer TROPEK LOAD INDEX TD 1ST DIAG. RDUSUM. 0239 0340 ў ЖЖЖҰЖЖ SUBROUTINE “UPDATES xxxxxx 
0203 OAL 8 1 с 0240 0340 $PLAYS MOVE BY STORING CODE PASSED ІМ IN ACCUM. 
pate BUY 0241 0340 SAT SQUARE SPECIFIED BY X REG. 
220 Білсін 0242 0340 FALSO LIGHTS/SETS BLINKING PROPER LEN» 
ozbe 0243 0340 FANT COMPUTES ROUSUMS. 
02119 “ ROWSUM» Xx 0244 0340 ; ка 
21 0245 0340 са UFDATE LEX ЎПЕСКЕМЕМТ MOVE TO MATCH INDEXING. 


ORNK 1 ОЕМ d 
ORI 1 ТКАРСК LOA $1 SCAN PLAYER SET А ТЕЛЕ? 


0246 0341 95 18 STA GMRRIt; Х FLAY MOVE, 


Fig. 11.50: Tic-Tac-Toe Program (Continued) Fig. 11.50: Tic-Tac-Toe Program (Continued) 
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0343 CME #904 F COMPUT 
0248 03548 FO ОП REQ NORLNK IF YES: IMG. 
0249 0347 20 98 03 JSR LIGHT $ ONDING 


034A $TO LEN TO 
034A 05 3n ORA LTMSRI. 
о34С 88 3n STA LTMSRI 
034Е 90 04 BCC NOBLNK 


0350 А9 01 LIA %01 

0552 85 3C вта LTMSKH 

0354 20 6F 03 NOBLNK JSR ЕТТЕ 

0357 А2 07 LUX #7 

0359 18 ADDROU CLC 

озса ва 00 LOY RUFTi»X 

O35C R9 18 00 LIA GMERIGY 

O35F B4 08 LEY RUFT22X 

0361 79 18 00 ATIC ӨМЗЕП,Ү 
0263 0364 BA 10 LEY RWETAs xX FALO FINAL SQUARE. 
0264 0366 79 18 00 ALC GMERI:Y 
0265 0369 95 2A STA ROWSUM»X RANE ROWSUM 
026% 0368 CA TEX 
0267 034C 10 ER RPL. ADDROW $GET NEXT ROHSUM, 
0268 O36E 60 RTS 


0269  036F $ 

0270 O36F  жжжжжж SURROUTINE ^LEY 
0971 O36F $GIUEN AN ARGUMENT IN X 
0272 O36F $ CORRESPONDING 
0273  O36F Н 

0274 O346F 20 98 ОЗ LEDLTR JSR LIGHT 


0275 0372 ОП 01 40 ORA PORTIA 

0276 0375 ВІ 01 AO STA PORTIA 

0277 0378 90 OS ECC LTRIN ТЕ LER $9 NOT TO PE L 
0278 037A A? 01 LIA #1 FLIGHT LET £9 

0279 037C 8П 00 AQ STA FORTLE 


0280 037F 60 
0281 0380 


LTRIN RTS STONE. 
; 
0282 0380 { ЖЖЖЖЖЖ SUBROUTINE 'FLAYE 
5 
3 


0283 0380 GETS PLAYER’S MOVE: CHECKS 
0284 0380 


FOR 


0285 0580 A? 80 FLRMU LIA #480 $MAKE 

0286 0382 85 ЗЕ STA DUR КЕТЕП 

0287 0384 A? 10 LIA t$10 

0288 0386 20 АП 00 JER TONE 

0289 0389 20 00 01 KEYIN JSR БЕТКЕҮ 3GET M 

0290 O38C С9 OAR CMF #10 FOUT имп? 


0391 O38E BO F? ECS KEYIN FIFY T ANOTHER 


0292 0290 AA TAX 

0293 0391 FO FS REQ KEYIN 0» GET AMOT 
0294 0393 RBS 17 LEA GMRRI!= 17X "METY? 

0295 03595 ПО F2 BNE KEYIM Y AGAIN. 
0296 0397 60 RTS 

0297 0398 5 

0298 0398 j OOK SUBROUTINE '/LIGHT^ x*xoex 

0299 0398 $SHIFTS A ONE BIT LEFT TN ACCUMULATOR TO 
0300 0398 jð FOSITION CORKESFONDING TO 

0301 0398 7ARGUMENT FASSET IN ІМ REG. Х-98, 
0302 0398 3CARRY IS SET. 

0303 0398 3 

0304 0398 84 38 LIGHT STX ТЕМРІ 

0305 037A A? 00 LIA to 

0304 039С 38 SEC 

0307 0591 2A SHIFT ROL A 

0308 O39E CA ПЕХ 

0309 O39F 10 FC ЕРІ. SHIFT $COUNT DOWN ANT! LOOP. 
0310 03541 46 38 LEX TEMP 3RESTORE X. 

0311 (03683 40 RTS 

0212 0304 5 

O313 90304 5 ЖЖЖҰЖЖ SUBROUTINE “DEL AY’ xw 

0514 0304 5 


0315 903а4 
03516 0346 
0317 90348 
0318 озал 


LAY LOY FSFE 
LEX #$FF 
ROL IUR 
ROR ШОК 


Fig. 11.50: Tic-Tac-Toe Program (Continued) 
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DEX 
BNE nL2 
DEY 
BNE DLI 


RTS 


TIC-TAC-TOE 


ЖЖЖЖЖЖ INTERRUPT HANDLING ROUTINE XYXYXY 


ҰАТ EACH INTERRUFT y 


LENS WHOSE POSITIONS IN 


3THE BLINK MASKS HAVE ONES IN THEM SRE TURNEN 
» OFF IF ON. 


30N IF OFF 
INTVEC FHA 
Li 
EOR 
STA 
LIA 
EOR 
STA 
LIA 
PLA 
RTI 


ЖЖЖЖЖЖ SUBROUTINE 
INITIALIZES 


? 
INIT 


CLRALL 


FORTi^ 
LTMSKL 
PORTIA 
FORT1E 
LTMSKH 
РОКТІВ 
TILL 


+50 


#0 


INITIALIZE’ xxxx*xX* 


PROGRAM. 


FCLEAR STORAGES . 


#CLRENTI-CLRST 


CLRST 7X 


. CLRALL. 


*SET UF TIMER FOR 


FILL 
RNIISCEH 1 
RNESCR+A 
¥SFF 
DURLA 
IRIE 
ІШІЕЗЕ 

то 
PORTIA 
РОКТ1З 


3ELINN LETS. 


JSR 


LIA 
STA 
LEA 
STA 
LEA 
STA 
LIA 
STA 
LIA 
STA 
LIA 
STA 
STA 
CLI 
CLE 
RTS 


; 
% 


ACCESS 


TZINTUEC 
IRQUI. 

FD INTVEC 
TRQVH 
ЖФ7Ғ 

IER 

FSCO 

IER 

*$40 

ACR 

*SsFF 
TALL. 
TICH 


ЖЖЖЖЖЖ SUBROUTINE 


СЕТ RANDOM NUM 


*SET UF 1/0 


$CLEAR L 


INTERRUPTS WHICH 


SYSTEM MEMORY TO 


$S8TORE AT INTERRUPT 1) 
FLOAN HI RYTE INTERRU 
3€TORE. 

$CLEAR INTERRUFT ENABLE R 


SENARLE ТІМЕК? INTERRUPT. 


SENARLE TIMER? IN FREE-RUM MOTE. 


ISET LOW LATCH ON TIMER 1. 


ISET HIGH LATCH& START INTERRUPT COUNT 
ЗЕМЛЕ Е INTERRUPTS, 


“КАМПОМ” ЖЖЖЖЖЖ 


RANDOM NUMBER GENERATOR: RETURNS NEW 
5КАМПОМ NUMBER IN ACCUMULATOR, 


y 
RANDOM SEC 


LOA RNIISCRt1 
ANC RNISCR+4 
AIC RNESCRHS 
STA RNIGCR 
LUX #4 


Fig. 11.50: Tic-Tac-Toe Program (Continued) 
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0391 
0392 
0392 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 


0045 EG 32 
0087 95 33 
0049 CA 
оода 10 F? 
004AC 60 
ooarn 

OOAL 

OOAn 

одап 

ооа 

ооап 

ООАП 85 3F 
OOAF А9 FF 
OORL ві 00 AC 
00Е4 A? 00 
0086 46 ЗЕ 
0088 А4 ЗЕ 
оова 88 
OOER 18 
OORC 90 00 
OORE 00 FA 
00С0 49 FF 
00€2 вг 00 AC 
oocs СА 
00C6 ПО FO 
00C8 60 


00с9 


SYMBOL TABLE 


SYMBOL 


VALUE 


RNELE 


$ 
E 


BFL. 
RTS 


КМИР 


*KKKKK SUBROUTINE 


GENERATES A ТОМЕ: NO. 
3MUST БЕ IN ІШЕК» 
$WAVELENGTH CONST. IN ACCUMULATOR, 


3 
TONE 


FL2 
FLL 


STA 
LIA 
STA 
LEA 
LOX 
Loy 
ПЕҮ 
CLO 
RCC 
BNE 
EOR 
STA 
ТЕХ 
ВМЕ 
RTS 
„ENI 


FREQ 
+$FF 
PORTSE 
#00 
TUR 
FREQ 


x42 
FL1 
*$FF 
PORT SE 


FL2 


ANI 


“TONE? ЖЖЖЖЖЖ 


OF 1/2 CYC 


LES 


ACCESS BESS ACR Аоов ADDROW 0359 ANALYZ 0290 
CHERLF 0314 CLRALL 0054 СЕКЕМ 0040 СЕКЕР 030€ 
CLRST 0018 CNTSUE 0339 COMPMU 0226 LERLA ^003 
DORLE A002 IERIE ACO2 NELAY 0364 nLi 03^6 
DE? 03A8 DLY 0297 DONE 0303 num E: 
FINIIMU 0304 FELI OORA FL2 OORS FNMTCH 

. FOUND 0338 FREQ 003Ғ GETREY 0100 GMRRE 

GTMSK 0269 IER 800Е ІМІТ 0050 ІМТІМ 

INTEL 0041 INTVEC O3R3 IRQUH ^67F 

KEYIN 0389 LEDLTR O346F LIGHT 0398 

LTMSKL ооз LTREN 037F MOUNUM 003A ' 

NOCHEK 0326 NOCNT O33F OLLIMSK 0040 ОТЕК 

OK 02C7 PLAYLF 0212 FLAYR 003R FLRMU 

PORTIA ^001 FORTIB A000 РОКТЗВ ACOO компом 

RESTRT 0204 RNDLF 0045 RNISMU 02F2 RNESCR 

ROWSUM 0024 КШЕТІ 0000 КЫРТ 0008 ки 0010 
SHIFT 0391 SQSTAT 0021 START 0200 TICH 4005 
TALL 8004 TEMP 1 0038 ТЕМЕ2 0039 TONE ода 
ТКАРСК оз TSTLF 0237 UFTIATE 0340 WIN озат 
WINTST 0235 


END OF ASSEMBLY 
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Fig. 11.50: Tic-Tac-Toe Program (Continued) 


ADC 
AND 
ASL 
BCC 
BCS 
BEQ 
BIT 
BMI 
BNE 
BPL 
BRK 
BVC 
BVS 
CLC 
CLD 
CLI 
CIV 
CMP 
CPX 
CPY 
DEC 
DEX 
DEY 
EOR 
INC 
INX 
INY 
JMP 


APPENDIX A 


Add with carry 
Logical AND 
Arithmetic shift left 
Branch if carry clear 
Branch if carry set 
Branch if result = 0 
Test bit 
Branch if minus 
Branch if not equal to 0 
Branch if plus 
Break 
Branch if overflow clear 
Branch if overflow set 
Clear carry 
Clear decimal flag 
Clear interrupt disable 
Clear overflow 
Compare to accumulator 
Compare to X 
Compare to Y 
Decrement memory 
Decrement X 
Decrement Y 
Exclusive OR 
Increment memory 
Increment X 
Increment Y 
Jump 


JSR 
LDA 
LDX 
LDY 
LSR 
NOP 
ORA 
PHA 
PHP 
PLA 
PLP 
ROL 
ROR 
RTI 
RTS 
SBC 
SEC 
SED 
SEI 
STA 
STX 
STY 
TAX 
TAY 
TSX 
TXA 
TXS 
TYA 


6502 INSTRUCTIONS— ALPHABETIC 


Jump to subroutine 

Load accumulator 

Load X 

Load Y 

Logical shift right 
No operation 
Logical OR 

Push A 

Push P status 

Pull A 

Pull P status 

Rotate left 

Rotate right 

Return from interrupt 
Return from subroutine 
Subtract with carry 
Set carry 

Set decimal 

Set interrupt disable 
Store accumulator 
Store X 

Store Y 

Transfer A to X 
Transfer A to Y 
Transfer SP to X 
Transfer X to A 
Transfer X to SP 
Transfer Y to A 
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APPENDIX 
6502—INSTRUCTION SET: HEX AND TIMING 
RELATIVE INDIRECT 2. PAGE, Y STATUS е 
(ЖЕР MNEMONIC 
MNEMONIC 
E 
AND 
ASL 
BCC 
BCS 
BEQ 
BIT 
BMI 
BNE 
BPL 
BRK 
ВУС 8У5 
0 cic 
mae —L o cto 
= = 0 mae 
o Civ 
. ФФ) СМР 
il ER е ee| СРХ 
. eej CPvY 
T (БЕН qe е DEC ] 
e e. DEX 
. ө DEY 
e EOR 
ә x EU NONO ERE E DE oot ciue 
Г m FTT Te % TNX] 
Ф e INY 
6С 5з JMP 
JSR 
1—-— e LDA 
Bf a 71% g Hoa 
. . toy 
0 ee CSR 
NOP 
ORA 
P 
PIER PLA 
es PLP 
ROL ROL 
ROR arr 
RTI 6 RTS 
RTS 60 |е [1 SBC 
sec qu SEC 
SEC 2|! Hi 
SED 211 
SEI 211 Set 
STA STA 
ar x 
SHY 2 1 TAX 
2 1 TAY 
21 TSX 
: |. n 
A ТҮА 


12) Add 210 n if branch within page 


(1) Add Т ton if crossing page boundary dd 
Add 3o n if branch to another poge 
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ACCESS, 170 
Ad hoc algorithm, 239 
Ad hoc programming, 238 
Analytical algorithm, 225 
ANALYZE, 263 
Array, 122 
Artificial intelligence, 224 
Assembler, 47 
Assembly, 12 
Audio feedback, 163 
Auxiliary Control Register, 174 
BEO, 154 
Binary number, 41 
Blackjack, 189 
Blackjack Program, 212 
BLIN 
Blink masks, 175 
BLINKER, 208 
Blinking, 274 
Blinking LEDs, 261 
Blip counter, 92 
Board analysis flowchart, 242 
Bounce, 13 
Bracket-filtering, 150 
Carry, 206 
Cassette recorder, 4 
CLI, 174 
CNTSUB, 55 
Complement, 73 
Complementation Table, 80 
Computing the Status, 271 
Constant symbols, 47 
Counter, 65, 101 
COUNTSUB, 273 
Current limiters, 11 
Decimal mode, 151 
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Decision tables, 225 
DELAY, 56, 132, 211, 278 
Delay constant, 103 
Diagonal trap, 244 
Diagonals, 266 
DISPLAY, 118 
DISPLY, 119 
Do-nothing, 55 
Draw, 222 
Dual Counter, 92 
Duration, 148 
DURTAB, 144 
ECHO, 137 
Echo, 35 
Echo Program, 145 
ESP Tester, 139 
EVAL, 118, 126, 153 
Evaluating the board, 225 
Extra Sensory Perception, 139 
FINDMV, 264, 269 
FINDMV flowchart, 270 
First move, 235 
Free run, 198 
Free-running, 198 
Free-running mode, 171, 256 
Frequencies, 25 
Frequency, 22, 261 
Frequency and duration constants, 161 
Games Board, 2, 7 
GETKEY, 13, 149 
GETKEY Program, 17 
GMBRD, 252 
Heuristic strategy, 225 
Hexadecimal, 41 
Hexguess Program, 63 
IER, 171 


IFR, 171 
Illegal key closure, 95 
Index, 159 
Indexed addressing, 37, 39, 122, 126 
Initialization, 198 
INITIALIZE, 279 
Intelligence level, 252, 260 
Interconnect, 4 
Interrupt, 198, 252, 261 
Interrupt Handler, 183, 211 
Interrupt handling, 198, 279 
Interrupt Registers, 174 
Interrupt-enable register, 256 
Interrupt-enabler, 171, 179, 256 
IQ level, 245, 265 
Jackpot, 100 
JMP, 154 
Key closure, 277 
Keyboard, 7 
Keyboard input routine, 13 
Labels, 47 
Latch, 65 
LED #9, 123 
LED Connection, 10 
LEDs, 8 
Levels of difficulty, 8 
LIGHT, 118, 132, 157, 274, 278 
LIGHTER, 276 
LIGHTR, 207 
LITE, 70, 182 
Loop counter, 92 
LOSE, 130 
Magic Square, 73 
MasterMind, 162 
Middle C, 23 
Mindbender, 162 
Mindbender Program, 184 
MOVE, 47 
Multiplication, 122 
Music Player, 20 
Music Program, 31 
Music theory, 23 
Nested loop delay, 39 
Nested loop design, 25 
NOTAB, 144 
Note duration, 159 
Note frequency, 159 
Note sequence, 139 
Parameters, 149 


Parts, 11 
Perfect square, 73 
PLAY, 48, 53 
PLAYEM, 37 
Playing to the side, 24 
PLAYIT, 30, 38 
PLAYNOTE, 30 
PLRMV, 277 
Potential, 225 
Power supply, 4 
Programmable bracket, 101 
Prompt, 42 
Protected, 170 
Protected area, 170 
Pulse, duration, 171 
RANDER, 210 
RANDOM, 57, 135, 150, 159, 209 
Random moves, 241 
Random number, 54, 65, 78, 118, 267 
Random number generator, 57,118, 
149 
Random pattern, 73 
Random move, 267 
Recursion, 211 
Repeat, 13 
Resistors, 11 
RNDSCR, 252 
Row sequences, 251 
Row-sum, 239, 271 
SBC, 206 
Scratch area, 57 
Score, 107, 128 
Score table, 107, 111, 112 
SCORTB, 127 
Seed, 118, 149 
74154, 8 
7416,8 
Shifting loop, 158 
SHOW, 152 
Side, 267 
Simple tunes, 21 
Siren, 100 
Slot Machine, 99 
Slot Machine Program, 113 
Software filter, 175 
Special decimal mode, 150 
Spinner, 87 
Spinner Program, 93 
SQSTAT, 252 
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Square status, 269 
Square wave, 22 
Strategy, 225 

SYM, 4 

TICL, 6, 83 

TIL-L, 65 

Threat potential, 226 
Tic-Tac-Toe, 218 


Tic-Tac-Toe Flowchart, 248 
Tic-Tac-Toe Program, 280 


TIMER, 65 

Timer, 65, 83, 198, 256 
Timer 1, 175 

TONE, 39, 70, 130, 135 
Translate, 41 

Translate Program, 49 
Trap, 235, 239, 264, 267 
Trap pattern, 241 
Two-level loop, 211 
Two-ply analysis, 237 
Unprotect system, 198 
UPDATE, 273 

Value computation, 226 
VIA, 8 

VIA memory map, 66 
Visual feedback, 163 
WAIT, 98 

Wheel pointer, 103, 120 
WIN, 128 

Win, 259 

Win potential, 225 
WINEND, 129 
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Introduction to Microprocessors - 2% hours (Ref. $1) 
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Microprocessor Lexicon (Ref. X1) 
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SOFTWARE 
BAS 65™ 6502 Assembler in Microsoft BASIC (Ref. BAS 65) 


8O80 Simulator for KIM - Cassette Tape or 5" Diskette (Ref. $6580-KIM) 
8080 Simulator for APPLE - Cassette Tape or 5” Diskette (Ref. $6580-APL) 
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